servant-purescript 0.3.1.3 → 0.3.1.4
raw patch · 2 files changed
+2/−2 lines, 2 files
Files
servant-purescript.cabal view
@@ -1,5 +1,5 @@ name: servant-purescript-version: 0.3.1.3+version: 0.3.1.4 synopsis: Generate PureScript accessor functions for you servant API description: Please see README.md homepage: https://github.com/eskimor/servant-purescript#readme
src/Servant/PureScript/CodeGen.hs view
@@ -170,7 +170,7 @@ genBuildHeader (ReplaceHeaderArg _ _) = error "ReplaceHeaderArg - not yet implemented!" reqsToImportLines :: [Req PSType] -> ImportLines-reqsToImportLines = typesToImportLines Map.empty . concatMap reqToPSTypes+reqsToImportLines = typesToImportLines Map.empty . Set.fromList . concatMap reqToPSTypes reqToPSTypes :: Req PSType -> [PSType] reqToPSTypes req = map _pType (reqToParams req) ++ maybeToList (req ^. reqReturnType)