apply more elmTypeAlterations

haskell-servant · Jan 1, 2024 · d52a733 · d52a733
1 parent 440a5e0
commit d52a733
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Servant/Elm/Internal/Generate.hs b/src/Servant/Elm/Internal/Generate.hs
@@ -583,15 +583,15 @@ response body.
 -}
 isEmptyType :: ElmOptions -> EType -> Bool
 isEmptyType opts elmTypeExpr =
-  elmTypeExpr `elem` emptyResponseElmTypes opts
+  (elmTypeAlterations opts elmTypeExpr) `elem` emptyResponseElmTypes opts
 
 
 {- | Determines whether we call `toString` on URL captures and query params of
 this type in Elm.
 -}
 isElmStringType :: ElmOptions -> EType -> Bool
 isElmStringType opts elmTypeExpr =
-  elmTypeExpr `elem` stringElmTypes opts
+  (elmTypeAlterations opts elmTypeExpr) `elem` stringElmTypes opts
 
 {- | Determines whether a type is 'Maybe a' where 'a' is something akin to a 'String'.
 -}