Exclude names starting with Haskell. from check for COMPILE pragma

Author: jespercockx

src/Agda2Hs/Compile/Name.hs

@@ -115,6 +115,7 @@ compileQName f
     existsInHaskell <- orM
       [ pure $ isJust special
       , pure $ isPrimModule mod
+      , pure $ isHsModule mod
       , hasCompilePragma f
       , isClassFunction f
       , isWhereFunction f

src/Agda2Hs/Compile/Utils.hs

@@ -64,6 +64,9 @@ primModules =
 isPrimModule :: Hs.ModuleName () -> Bool
 isPrimModule mod = any (`isPrefixOf` pp mod) primModules
 
+isHsModule :: Hs.ModuleName () -> Bool
+isHsModule mod = "Haskell." `isPrefixOf` pp mod
+
 concatUnzip :: [([a], [b])] -> ([a], [b])
 concatUnzip = (concat *** concat) . unzip