Skip to content

Instantly share code, notes, and snippets.

View funrep's full-sized avatar

Karl-Oskar Rikås funrep

View GitHub Profile
module Config where
import Data.ConfigFile
response = "End of /MOTD command."
data Config =
Config { server :: String,
port :: Int,
chan :: String,
@funrep
funrep / IRC.hs
Last active December 18, 2015 02:09
module IRC where
import Network
import System.IO
import Control.Monad.Reader
import Data.List
import Text.Printf
import Config
@funrep
funrep / Config.hs
Last active December 18, 2015 02:08
module Config where
import Data.ConfigFile
response = "End of /MOTD command."
data Config =
Config { server :: String,
port :: Int,
chan :: String,
module Main where
import Data.List
import Network
import System.IO
import System.Exit
import Control.Arrow
import Control.Monad.Reader
import qualified Control.Exception as E
import Text.Printf
module IRC where
import Network (connectTo, PortNumber)
import System.IO (hGetLine)
import Text.Printf (hPrintf, printf)
import Config
type Net = ReaderT Bot IO
data Bot = Bot { socket :: Handle }
--- Vis ---
fastvis = true
saveprt = true
Loading /home/klrr/.xonotic/data/maps/mdm2breath.bsp
************ ERROR ************
Error opening /home/klrr/.xonotic/data/maps/mdm2breath.bsp: No such file or directory
@funrep
funrep / Main.hs
Last active December 17, 2015 06:58
module Main where
import Data.IORef
import Control.Monad.Error
import System.IO (hFlush, stdout)
import System.Environment (getArgs)
import Types
import Parser
import Prims
@funrep
funrep / oct.hs
Last active December 17, 2015 01:10
module Main where
import Control.Applicative ((<$>))
import Control.Monad.Error
import Text.ParserCombinators.Parsec
import Data.IORef
-- Main
runIOThrows :: IOErrorOr String -> IO String
module Main where
import Control.Applicative ((<$>))
import Control.Monad.Error
import Text.ParserCombinators.Parsec
import Data.IORef
-- Types
data Expr
module Main where
import Control.Applicative ((<$>))
import Control.Monad.Error
import Text.ParserCombinators.Parsec
import Data.IORef
-- Types
data Expr