diff --git a/src/Handler/Utils/Templates.hs b/src/Handler/Utils/Templates.hs index ef584c19b..221c72b76 100644 --- a/src/Handler/Utils/Templates.hs +++ b/src/Handler/Utils/Templates.hs @@ -2,7 +2,7 @@ module Handler.Utils.Templates where import Data.Either (isLeft) -import Import +import Import.NoFoundation modal :: WidgetT site IO () -> Either (SomeRoute site) (WidgetT site IO ()) -> WidgetT site IO () modal modalTrigger modalContent = do @@ -15,16 +15,12 @@ modal modalTrigger modalContent = do route' <- toTextUrl route [whamlet| $newline never -