fix toNixPath

cachix · May 19, 2019 · ce64e0f · ce64e0f
1 parent 39bb9d4
commit ce64e0f
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/Elm2Nix.hs b/src/Elm2Nix.hs
@@ -95,11 +95,15 @@ parseElmJsonSrcs obj =
     extractSrcPath :: Value -> Either Elm2NixError String
     extractSrcPath val =
       case val of
-        String text -> Right $ toNixPath text
+        String text -> Right (toNixPath (Text.unpack text))
         v -> Left $ UnexpectedValue v
 
-    toNixPath :: Text -> String
-    toNixPath = (\p -> if p == "." then "./." else p ) . Text.unpack
+    toNixPath :: FilePath -> FilePath
+    toNixPath path =
+      case path of
+        "."       -> "./."
+        p@('.':_) -> p
+        p         -> "./" <> p
 
 -- CMDs