srid/ema
1
1
Fork 0
mirror of https://github.com/srid/ema.git synced 2024-11-29 09:25:14 +03:00
Code Issues Projects Releases Wiki Activity

StaticRoute: derive Generic

Browse Source
This commit is contained in:
Sridhar Ratnakumar 2022-07-02 11:15:04 -04:00
parent 111d589122
commit 05d410670f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Ema/Route/Lib/Extra/StaticRoute.hs
View File

@ -27,6 +27,7 @@ import UnliftIO (MonadUnliftIO)
-- | Route to a static file under @baseDir@.
newtype StaticRoute (baseDir :: Symbol) (a :: Type) = StaticRoute {unStaticRoute :: FilePath}
deriving newtype (Eq, Ord, Show)
deriving stock (Generic)
instance IsRoute (StaticRoute baseDir a) where
type RouteModel (StaticRoute baseDir a) = Map FilePath a