Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Strictly parse models upon loading

  • Loading branch information...
commit c2db41385dbc340e880a905c6e1e3fd5aae5faba 1 parent 5d4eadb
@dzhus authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Snap/Snaplet/Redson/Snapless/Metamodel/Loader.hs
View
2  src/Snap/Snaplet/Redson/Snapless/Metamodel/Loader.hs
@@ -77,7 +77,7 @@ loadModels directory groupsFile =
Just groups -> do
mdls <- mapM (\m -> do
mres <- loadModel m groups
- return $ case mres of
+ return $! case mres of
Just mdl -> mdl
Nothing -> error $ "Could not parse " ++ m
) mdlFiles
Please sign in to comment.
Something went wrong with that request. Please try again.