Don't put quotes around the packageName of PackageImports

circuithub · Apr 9, 2021 · efaeed3 · efaeed3
1 parent 9191b07
commit efaeed3
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -395,8 +395,7 @@ parseImport = (<?> "parseImport") $ do
     (<?> "maybePackageName") $
     try
       (Just <$> do
-          packageName <- char '"' >> (Text.pack <$> someTill printChar (char '"'))
-          pure (Text.cons '"' packageName `Text.snoc` '"')
+          char '"' >> (Text.pack <$> someTill printChar (char '"'))
       ) <|> pure Nothing
 
   spacesFollowingPackage <-
@@ -428,7 +427,7 @@ parseImport = (<?> "parseImport") $ do
               , spacesFollowingImport
               , fromMaybe "" maybeQualified
               , spacesFollowingQualified
-              , fromMaybe "" maybePackageName
+              , maybe "" (\packageName -> "\"" <> packageName <> "\"") maybePackageName
               , spacesFollowingPackage
               , moduleNameText
               , restOfLine