more polymorphic

system-f · Jun 12, 2018 · 7454505 · 7454505
1 parent 22e926b
commit 7454505
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Control/Exitcode.hs b/src/Control/Exitcode.hs
@@ -151,11 +151,11 @@ _ExitFailure =
 
 _ExitSuccess ::
   Prism'
-    Exitcode0
-    ()
+    (Exitcode a)
+    a
 _ExitSuccess =
   prism'
-    (\() -> exitsuccess0)
+    exitsuccess
     (\(ExitcodeT (Identity x)) -> x ^? _Right)
 
 instance Functor f => Functor (ExitcodeT f) where