No title

Anonymous Coward 2018-04-25 09:21:25.495819 UTC

1getAssetR :: ServerT GetAssetR App
2getAssetR = lift . lift . _ $ serveDirectoryWebApp assetsDir
3 where assetsDir :: FilePath
4 assetsDir = "assets"
5
6 -- Here App = ReaderT Context Handler
7
8Found hole:
9 _ :: Tagged
10 Servant.Server.Internal.Handler.Handler
11 wai-3.2.1.2:Network.Wai.Application
12 -> Servant.Server.Internal.Handler.Handler
13 wai-3.2.1.2:Network.Wai.Application
14In the second argument of ‘(.)’, namely ‘_’
15 In the second argument of ‘(.)’, namely ‘lift . _’
16 In the expression: lift . lift . _