fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use existing withFragment

Browse Source
This commit is contained in:
Gregor Kleen 2018-06-30 19:13:21 +02:00
parent 60b250f5b3
commit fee96e448f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Table/Pagination.hs
View File

@ -244,7 +244,7 @@ instance Monoid a => IsDBTable (RWST (Maybe (Env, FileEnv), UniWorX, [Lang]) Enc
-- runDBTable :: MForm (HandlerT UniWorX IO) (FormResult a, Widget) -> m ((FormResult a, Widget), Enctype)
-- runDBTable form = liftHandlerT . runFormPost $ \html -> over _2 (<> toWidget html) <$> form
-- runDBTable :: MForm (HandlerT UniWorX IO) (FormResult a, Widget) -> m (Html -> MForm (HandleT UniWorX IO) (FormResult a, Widget))
runDBTable form = return $ \html -> over _2 (<> toWidget html) <$> form
runDBTable = return . withFragment
instance IsDBTable m a => IsString (DBCell m a) where
fromString = cell . fromString