[ fix #449 ] Set is not a valid Haskell type

Author: jespercockx

src/Agda2Hs/Compile/Type.hs

@@ -129,8 +129,6 @@ compileType t = do
       x  <- hsName <$> compileDBVar x
       return $ tApp (Hs.TyVar () x) vs
 
-    Sort s -> return (Hs.TyStar ())
-
     Lam argInfo restAbs -> do
       (body , x0) <- underAbstraction_ restAbs $ \b ->
         (,) <$> compileType b <*> (hsName <$> compileDBVar 0)

test/Fail/Issue449.agda

@@ -0,0 +1,14 @@
+module Fail.Issue449 where
+
+open import Haskell.Prelude
+
+foo : Set → Int
+foo _ = 42
+{-# COMPILE AGDA2HS foo #-}
+
+goo : ∀ {a : Set₁} → (a → Int) → Bool
+goo _ = True
+{-# COMPILE AGDA2HS goo #-}
+
+test = goo foo
+{-# COMPILE AGDA2HS test #-}

test/golden/Issue449.err

@@ -0,0 +1,2 @@
+test/Fail/Issue449.agda:13.1-5: error: [CustomBackendError]
+agda2hs: Bad Haskell type: Type