Compile to WASM

Author: lierdakil

cabal.project

@@ -0,0 +1,4 @@
+with-compiler: wasm32-wasi-ghc
+with-hc-pkg: wasm32-wasi-ghc-pkg
+packages: .
+allow-newer: ghc-prim

cabal2json.cabal

@@ -25,8 +25,8 @@ executable cabal2json
     hs-source-dirs:   src
     default-language: Haskell2010
     build-depends:
-        Cabal >=3.2.1.0 && <3.3,
-        aeson >=1.5.6.0 && <1.6,
+        Cabal >=3.9 && <3.10,
+        aeson >=1.5.6.0 && <3,
         base >=4.7 && <5,
-        bytestring >=0.10.12.0 && <0.11,
+        bytestring >=0.10.12.0 && <0.12,
         filepath >=1.4.2.1 && <1.5

src/Main.hs

@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -Wall #-}
+{-# OPTIONS_GHC -Wall -Werror #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Main (main) where
@@ -8,8 +8,8 @@ import Distribution.Package
 import Distribution.PackageDescription
 import Distribution.PackageDescription.Parsec (parseGenericPackageDescriptionMaybe)
 import Distribution.ModuleName (ModuleName, toFilePath)
-import Distribution.Types.UnqualComponentName
 import Distribution.Types.Version
+import Distribution.Utils.Path
 
 import System.Environment (getArgs)
 import System.FilePath
@@ -79,7 +79,7 @@ getComponentFromFile gpkg file =
           omod = otherModules info
           sourceDirs = hsSourceDirs info
           modules = map Left omod ++ fjoin mainmod
-          genFP f = map (normalise . (</> f)) sourceDirs
+          genFP f = map (normalise . (</> f) . getSymbolicPath) sourceDirs
           check = any (
             either (any (`isPrefixOf` file) . genFP . toFilePath)
                    (elem file . genFP))