- case AL.parse extMapP file of
- AL.Done _ xs → return $ compile xs
- AL.Fail _ _ e → fail ("Failed to parse: " ⧺ fpath ⧺ ": " ⧺ e)
+ case LP.parse extMapP file of
+ LP.Done _ xs → return $ compile xs
+ LP.Fail _ _ e → fail ("Failed to parse: " ⧺ fpath ⧺ ": " ⧺ e)