This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Config where | |
import Data.ConfigFile | |
response = "End of /MOTD command." | |
data Config = | |
Config { server :: String, | |
port :: Int, | |
chan :: String, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module IRC where | |
import Network | |
import System.IO | |
import Control.Monad.Reader | |
import Data.List | |
import Text.Printf | |
import Config |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Config where | |
import Data.ConfigFile | |
response = "End of /MOTD command." | |
data Config = | |
Config { server :: String, | |
port :: Int, | |
chan :: String, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Main where | |
import Control.Applicative ((<$>)) | |
import Control.Monad.Error | |
import Text.ParserCombinators.Parsec | |
import Data.IORef | |
-- Main | |
runIOThrows :: IOErrorOr String -> IO String |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Main where | |
import Control.Applicative ((<$>)) | |
import Control.Monad.Error | |
import Text.ParserCombinators.Parsec | |
import Data.IORef | |
-- Types | |
data Expr |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Main where | |
import Control.Applicative ((<$>)) | |
import Control.Monad.Error | |
import Text.ParserCombinators.Parsec | |
import Data.IORef | |
-- Types | |
data Expr |