Merge pull request #73 from domenkozar/more-type-alternations

Apply more elmTypeAlterations

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'.
 -}