- in do mod <- checkModule session (moduleName $ ms_mod ms)
- return $ case mod of
- Nothing -> FileData filename []
- Just m -> case renamedSource m of
- Nothing -> FileData filename []
- Just s -> fileData filename s
-
-
-fileData :: FileName -> RenamedSource -> FileData
-fileData filename (group, imports, lie) =
+ modname = moduleName $ ms_mod ms
+ in do mod <- checkModule session modname
+ return $ maybe (FileData filename []) id $ do
+ m <- mod
+ s <- renamedSource m
+ return $ fileData filename modname s
+
+fileData :: FileName -> ModuleName -> RenamedSource -> FileData
+fileData filename modname (group, imports, lie) =