21 lines
1004 B
Diff
21 lines
1004 B
Diff
--- a/src/Stack/Build/Execute.hs
|
|
+++ b/src/Stack/Build/Execute.hs
|
|
@@ -26,7 +26,7 @@ import Control.Concurrent.Exec
|
|
import Control.Concurrent.STM (check)
|
|
import Stack.Prelude hiding (Display (..))
|
|
import Crypto.Hash
|
|
-import Data.Attoparsec.Text hiding (try)
|
|
+import Data.Attoparsec.Text as P hiding (try)
|
|
import qualified Data.ByteArray as Mem (convert)
|
|
import qualified Data.ByteString as S
|
|
import qualified Data.ByteString.Builder
|
|
@@ -2160,7 +2160,7 @@ mungeBuildOutput excludeTHLoading makeAb
|
|
lineCol = char ':'
|
|
>> choice
|
|
[ num >> char ':' >> num >> optional (char '-' >> num) >> return ()
|
|
- , char '(' >> num >> char ',' >> num >> string ")-(" >> num >> char ',' >> num >> char ')' >> return ()
|
|
+ , char '(' >> num >> char ',' >> num >> P.string ")-(" >> num >> char ',' >> num >> char ')' >> return ()
|
|
]
|
|
>> char ':'
|
|
>> return ()
|