| 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" |
| 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 |
| 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(..)) | |
| 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 |
| {-# 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) |
This is a trivial example that plays a sound in SDL mixer.
It includes arbitrary Template Haskell to check that everything links properly.
Do not copy this to your own project. Use these functions or check out the Haskell Game Programming wiki instead.
| {-# LANGUAGE MultiWayIf #-} | |
| test1 :: Maybe String -> String | |
| test1 x = | |
| case () of | |
| _ | True | |
| -> "Good morning" | |
| test2 :: Maybe String -> String | |
| test2 x = | |
| if | True -> "Good morning" |
| {-# LANGUAGE MultiParamTypeClasses #-} | |
| {-# LANGUAGE FunctionalDependencies #-} | |
| {-# LANGUAGE ScopedTypeVariables #-} | |
| {-# LANGUAGE FlexibleContexts #-} | |
| {-# LANGUAGE UndecidableInstances #-} | |
| {-# LANGUAGE FlexibleInstances #-} | |
| module FRP.Yampa.Backends.SDL where | |
| import Data.IORef | |
| import FRP.Yampa.Signal as Yampa |
| #!/bin/bash | |
| # matryoshka-vim | |
| # ============== | |
| # | |
| # A wrapper around vim to open files in existing vim sessions using ConqueTerm. | |
| # | |
| # AUTHOR: Ivan Perez Dominguez | |
| # LICENCE: GPL-3 | |
| # |
| \definecolor{mygreen}{rgb}{0,0.6,0} | |
| \lstset{ | |
| commentstyle=\color{mygreen}, | |
| keywordstyle=\color{blue}, % keyword style | |
| breaklines=true | |
| } | |
| \begin{minipage}{\linewidth} | |
| \hspace*{.1\linewidth}% | |
| \begin{minipage}{.7\linewidth} | |
| \begin{lstlisting}[frame=l,basicstyle=\small\ttfamily,language=Haskell, |