shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Move around files a bit.

--- a/src/MicroHs/Main.hs

+++ b/src/MicroHs/Main.hs

@@ -48,8 +48,8 @@

    _ -> do

     let dflags = (defaultFlags dir){ pkgPath = pkgPaths }

         (flags, mdls, rargs) = decodeArgs dflags [] args

-        pkgPaths | dir == dataDir && dir /= "." = [dataDir ++ "/../.."]  -- This is a bit ugly

-                 | otherwise                    = []                     -- No package search path

+        pkgPaths | dir == dataDir && dir /= "." = [dataDir ++ "/../../.."]  -- This is a bit ugly

+                 | otherwise                    = []                        -- No package search path

     case listPkg flags of

       Just p -> mainListPkg flags p

       Nothing ->

-- 

⑨