ivanperez-keera

module Main where
import Control.Concurrent
import Control.Monad
import Control.Monad.Trans
import Database.HDBC
import Database.HDBC.MySQL
import Data.Maybe
import Happstack.Server
import qualified Data.ByteString.Lazy.Char8 as BL
import qualified Data.Text as T

ivanperez-keera

{-# LANGUAGE OverloadedStrings     #-}
{-# LANGUAGE QuasiQuotes           #-}
{-# LANGUAGE ScopedTypeVariables   #-}
{-# LANGUAGE TemplateHaskell       #-}
{-# LANGUAGE TypeFamilies          #-}
import Control.Applicative
import Control.Arrow
import Control.Concurrent
import Control.Concurrent.MVar
import Control.Exception hiding (Handler)

ivanperez-keera

Only in SourceGraph-mine/: dist
diff -ur SourceGraph-0.7.0.6/Main.hs SourceGraph-mine/Main.hs
--- SourceGraph-0.7.0.6/Main.hs	2015-03-31 11:57:58.753791179 +0100
+++ SourceGraph-mine/Main.hs	2015-03-31 12:04:25.533790366 +0100
@@ -57,6 +57,7 @@
 import Control.Arrow(second)
 import Control.Monad(liftM)
 import Control.Exception(SomeException(..), try)
+import Language.Haskell.Exts(SrcLoc(..))
 

ivanperez-keera

import           Data.Bits (xor)
import qualified Data.ByteString.Lazy as B
import           System.Environment (getArgs)

main :: IO()
main = do
 args <- getArgs
 if length args < 2
  then putStrLn "I need at least two filenames" 
  else do (b:bs) <- mapM B.readFile args

ivanperez-keera

module Main where

import Data.Word (Word32)
import Data.IORef (newIORef, readIORef, writeIORef, IORef)
import Graphics.UI.SDL as SDL

main = withInit [InitEverything] $ do
  screen <- setVideoMode 640 480 0 [HWSurface, DoubleBuf] -- , ASyncBlit
  -- hello <- loadBMP "hello.bmp"