Commit 97fcd7e0a9a976e65e9f7fde460fd73fc334f6a3
Parent: 4e081e88d1349c88da3fb1cf62f973459502c54c
Author: mcol <mcol@posteo.net>
Date: 2022-05-29 16:29:08 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2022-05-29 16:29:08 +0100

remove annoying gen annotation

src/Repositories.hs Modified

@@ -4,6 +4,7 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE NoMonomorphismRestriction #-}
 
 module Repositories (
     run,
@@ -138,17 +139,6 @@
                     -- Run the generator --
                     let quiet = envQuiet env
                         force = envForce env
-
-                        -- This annotation blocks the first use of gen from making t concrete
-                        gen ::
-                            ToGVal RunRepo t =>
-                            (ReaderT LgRepo IO (GVal RunRepo) -> IO (GVal RunRepo)) ->
-                            Template ->
-                            T.Text ->
-                            Path Abs Dir ->
-                            (t -> FilePath) ->
-                            t ->
-                            IO ()
                         gen = genTarget scope quiet force
 
                     mapM_ (genRepo scope runInIO output) (envRepoTemplates env)