Something resembling of a front page

src/Server.hs

@@ -0,0 +1,27 @@
+{-# Language DataKinds #-}
+{-# Language TypeFamilies #-}
+{-# Language TypeOperators #-}
+{-# Language NoImplicitPrelude #-}
+{-# Language MultiParamTypeClasses #-}
+{-# Language OverloadedStrings #-}
+{-# Language TemplateHaskell #-}
+{-# Language QuasiQuotes #-}
+{-# Language RecordWildCards #-}
+{-# Language DeriveGeneric #-}
+{-# Language FlexibleInstances #-}
+module Server where
+
+import qualified API as API
+import Servant
+
+type API = API.API :<|> "static" :> Raw
+
+handler :: ServerT API Handler
+handler = API.handler :<|> serveDirectoryFileServer "static"
+
+
+server :: Application
+server = serve api handler
+  where
+    api :: Proxy API
+    api = Proxy