@@ -101,8 +101,11 @@ testMatchesExpected elmDir expectedJsDir = do
101101 readFileOrErrorStr filePath = do
102102 strOrExc <- try $ readFile filePath
103103 case strOrExc of
104− Right s -> return s
105− Left (e :: IOException) -> return (show e)
104+ Right s ->
105+ return s
106+
107+ Left (e :: IOException) ->
108+ return (show e)
106109
107110 doTest filePath = do
108111 source <- readFile filePath
@@ -123,6 +126,7 @@ testMatchesExpected elmDir expectedJsDir = do
123126 createDirectoryIfMissing True (dropFileName expectedFilePath)
124127 writeFile expectedFilePath js
125128 assertFailure ("Wrote new expected js: " ++ expectedFilePath)
129+
126130 _ ->
127131 assertFailure "Compile failed. Could not write new expected js."
128132 return $ testCase filePath assertion