Spike beginning of server

app/Main.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Lib
+import qualified Lib
 
 main :: IO ()
-main = someFunc
+main = Lib.startServer

src/Lib.hs

@@ -1,6 +1,8 @@
 module Lib
-    ( someFunc
+    ( startServer
     ) where
 
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"
+import qualified Server
+
+startServer :: IO ()
+startServer = Server.startServer

src/Server.hs

@@ -0,0 +1,15 @@
+{-# Language OverloadedStrings #-}
+
+module Server
+    ( startServer
+    ) where
+
+import Snap (Snap, writeBS, quickHttpServe)
+
+
+startServer :: IO ()
+startServer = quickHttpServe site
+
+site :: Snap ()
+site =
+  writeBS "Server now serving basic text for breakfast!"

substance.cabal

@@ -25,6 +25,7 @@ executable substance-exe
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
   build-depends:       base
                      , substance
+                     , snap
   default-language:    Haskell2010
 
 test-suite substance-test