:set -XNoMonomorphismRestriction
:set -XOverloadedStrings
:set -XNoImplicitPrelude
:m Sweetroll.Prelude DevelMain

:{
:def serve \_ -> return $ unlines
     [ ":reload"
     , "update" ]
:}

putStrLn "\n\nRun :serve to start the server"
