From b7da6a23a4ae94e8ce376376df77401ee779f028 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 6 Jul 2019 17:33:40 -0400
Subject: sigs

---
 lib/CommandLine.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/CommandLine.hs')

diff --git a/lib/CommandLine.hs b/lib/CommandLine.hs
index 55b77b3..ea5d6b8 100644
--- a/lib/CommandLine.hs
+++ b/lib/CommandLine.hs
@@ -286,6 +286,7 @@ vanilla flags  = ArgsStyle { parseInvocation = parse flags }
 --
 --   * default polyvariadic - Implicit polyvariadic option if no other option is specified.
 --
+fancy :: [([Char], Int)] -> [[Char]] -> [Char] -> ArgsStyle
 fancy sargspsec polyVariadicArgs defaultPoly = ArgsStyle
     { parseInvocation = parse sargspsec polyVariadicArgs defaultPoly }
  where
@@ -436,6 +437,7 @@ sortOn f =
 #endif
 #endif
 
+removeIntersection :: Ord a => [a] -> [a] -> ([a], [a])
 removeIntersection (x:xs) (y:ys)
     | x == y = removeIntersection xs ys
     | x < y  = first (x :) $ removeIntersection xs (y:ys)
-- 
cgit v1.2.3