stuff

IRC/Connection.hs

@@ -2,7 +2,11 @@ module IRC.Connection where
 
 import Data.Word (Word16)
 
---import qualified Network.Socket as S
+import qualified Network.Socket as S
+
+data Connection = Connection { connSocket :: S.Socket,
+                               connNick   :: String,
+                             }
 
 -- The host to connect to.
 type Host = String
@@ -10,4 +14,5 @@ type Host = String
 -- The port to connect to.
 type Port = Word16
 
---connect :: S.Socket
+connect :: Host -> Port
+connect = error "unimplemented"

IRC/Plugins/Loader.hs

@@ -0,0 +1,4 @@
+module IRC.Plugins.Loader where
+
+test :: Int
+test = 1

IRC/Plugins/Tupfile

@@ -0,0 +1,3 @@
+include_rules
+
+: foreach *.hs |> ghc $(GHCFLAGS) -c %f |> %B.o %B.hi