-- | Handler for the `GetFile` endpoint
getFile :: Server GetFile
getFile file = liftIO (Text.readFile file)
getFile :: Server GetFile
getFile file = liftIO (Text.readFile file)
getFile file = liftIO (Text.readFile file)