Drop vestigial FileSystem effect requirement

src/Main.hs

@@ -10,7 +10,6 @@ import Control.Monad.Except     (ExceptT (ExceptT))
 import Data.List
 import Effectful
 import Effectful.Error.Static   (Error, runErrorNoCallStack, throwError)
-import Effectful.FileSystem
 import Effectful.Reader.Static
 import Network.Wai.Handler.Warp (run)
 import Servant hiding           ((:>), throwError)
@@ -23,7 +22,7 @@ main :: IO ()
 main = do
   pool <- createConnectionPool
   let env = AppEnv { pool = pool }
-  run port $ serve proxy $ app env
+  run port . serve proxy $ app env
 
 app :: AppEnv -> Server AppAPI
 app env = transformEff env
@@ -42,7 +41,6 @@ transformEff env = hoistServer proxy
   . runReader env
   . runDatabaseIO
   . runLoggerPSQL
-  . runFileSystem
 
 port :: Int
 port = 8080