Permalink
Browse files

Strictly parse models upon loading

  • Loading branch information...
1 parent 5d4eadb commit c2db41385dbc340e880a905c6e1e3fd5aae5faba @dzhus committed Apr 21, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 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

0 comments on commit c2db413

Please sign in to comment.