@@ -26,6 +26,7 @@ import Prelude hiding (id, (.))
2626import Control.Category
2727import Control.Monad
2828import Control.Monad.Except
29+import Control.Monad.Fail (MonadFail)
2930import Control.Categorical.Bifunctor
3031import Data.ByteString (ByteString)
3132import qualified Data.ByteString.Char8 as BSC8
@@ -144,7 +145,7 @@ serveObeliskApp urlEnc serveStaticAsset frontendApp config = \case
144145 writeText msg
145146 ResourceRoute_Version :=> Identity () -> doNotCache >> serveFileIfExistsAs "text/plain" "version"
146147
147−serveStaticAssets :: MonadSnap m => StaticAssets -> [Text] -> m ()
148+serveStaticAssets :: (MonadSnap m, MonadFail m) => StaticAssets -> [Text] -> m ()
148149serveStaticAssets assets pathSegments = serveAsset (_staticAssets_processed assets) (_staticAssets_unprocessed assets) $ T.unpack $ T.intercalate "/" pathSegments
149150
150151data StaticAssets = StaticAssets
@@ -162,7 +163,7 @@ staticRenderContentType = "text/html; charset=utf-8"
162163
163164--TODO: Don't assume we're being served at "/"
164165serveGhcjsApp
165− :: (MonadSnap m, HasCookies m)
166+ :: (MonadSnap m, HasCookies m, MonadFail m)
166167 => (R appRouteComponent -> Text)
167168 -> GhcjsApp (R appRouteComponent)
168169 -> Map Text ByteString