build checks.x86_64-linux.mutation-opt-env-conf
936.29 s
[opt-env-conf-test] isEmpty = \case
936.29 s
[opt-env-conf-test] ParserPure _ -> False
936.29 s
[opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
936.29 s
[opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
936.29 s
[opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
936.29 s
[opt-env-conf-test] ParserEmpty _ -> True
936.29 s
[opt-env-conf-test] ParserAlt _ _ -> False
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
936.29 s
[opt-env-conf-test] @@ -253,7 +253,7 @@
936.29 s
[opt-env-conf-test] let isEmpty :: Parser a -> Bool
936.29 s
[opt-env-conf-test] isEmpty = \case
936.29 s
[opt-env-conf-test] ParserPure _ -> False
936.29 s
[opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
936.29 s
[opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
936.29 s
[opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
936.29 s
[opt-env-conf-test] ParserEmpty _ -> True
936.29 s
[opt-env-conf-test] ParserAlt _ _ -> False
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:297:39-40
936.29 s
[opt-env-conf-test] @@ -294,7 +294,7 @@
936.29 s
[opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] showParserABit :: Parser a -> String
936.29 s
[opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
936.29 s
[opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
936.29 s
[opt-env-conf-test] showParserPrec = go
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:19-27
936.29 s
[opt-env-conf-test] @@ -370,7 +370,7 @@
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test] . go 11 p2
936.29 s
[opt-env-conf-test] ParserSetting mLoc p ->
936.29 s
[opt-env-conf-test] - showParen (d > 10) $
936.29 s
[opt-env-conf-test] + showParen True $
936.29 s
[opt-env-conf-test] showString "Setting "
936.29 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:20-26
936.29 s
[opt-env-conf-test] @@ -370,7 +370,7 @@
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test] . go 11 p2
936.29 s
[opt-env-conf-test] ParserSetting mLoc p ->
936.29 s
[opt-env-conf-test] - showParen (d > 10) $
936.29 s
[opt-env-conf-test] + showParen (True) $
936.29 s
[opt-env-conf-test] showString "Setting "
936.29 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
936.29 s
[opt-env-conf-test] @@ -370,7 +370,7 @@
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test] . go 11 p2
936.29 s
[opt-env-conf-test] ParserSetting mLoc p ->
936.29 s
[opt-env-conf-test] - showParen (d > 10) $
936.29 s
[opt-env-conf-test] + showParen (d > -10) $
936.29 s
[opt-env-conf-test] showString "Setting "
936.29 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
936.29 s
[opt-env-conf-test] @@ -370,7 +370,7 @@
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test] . go 11 p2
936.29 s
[opt-env-conf-test] ParserSetting mLoc p ->
936.29 s
[opt-env-conf-test] - showParen (d > 10) $
936.29 s
[opt-env-conf-test] + showParen (d > 1) $
936.29 s
[opt-env-conf-test] showString "Setting "
936.29 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
936.29 s
[opt-env-conf-test] @@ -370,7 +370,7 @@
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test] . go 11 p2
936.29 s
[opt-env-conf-test] ParserSetting mLoc p ->
936.29 s
[opt-env-conf-test] - showParen (d > 10) $
936.29 s
[opt-env-conf-test] + showParen (d > 0) $
936.29 s
[opt-env-conf-test] showString "Setting "
936.29 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.29 s
[opt-env-conf-test] . showString " "
936.29 s
[opt-env-conf-test]
936.29 s
[opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:19-27
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen not ((d > 10)) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen False $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen True $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:20-26
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (not (d > 10)) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (False) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (True) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > -10) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > 1) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
936.30 s
[opt-env-conf-test] @@ -362,7 +362,7 @@
936.30 s
[opt-env-conf-test] showCommandABit
936.30 s
[opt-env-conf-test] cs
936.30 s
[opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > 0) $
936.30 s
[opt-env-conf-test] showString "WithConfig _ "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:19-27
936.30 s
[opt-env-conf-test] @@ -352,7 +352,7 @@
936.30 s
[opt-env-conf-test] . showString " _ "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCommands mLoc mDefault cs ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen True $
936.30 s
[opt-env-conf-test] showString "Commands "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:20-26
936.30 s
[opt-env-conf-test] @@ -352,7 +352,7 @@
936.30 s
[opt-env-conf-test] . showString " _ "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCommands mLoc mDefault cs ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (True) $
936.30 s
[opt-env-conf-test] showString "Commands "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
936.30 s
[opt-env-conf-test] @@ -352,7 +352,7 @@
936.30 s
[opt-env-conf-test] . showString " _ "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCommands mLoc mDefault cs ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > -10) $
936.30 s
[opt-env-conf-test] showString "Commands "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
936.30 s
[opt-env-conf-test] @@ -352,7 +352,7 @@
936.30 s
[opt-env-conf-test] . showString " _ "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCommands mLoc mDefault cs ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > 1) $
936.30 s
[opt-env-conf-test] showString "Commands "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
936.30 s
[opt-env-conf-test] @@ -352,7 +352,7 @@
936.30 s
[opt-env-conf-test] . showString " _ "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCommands mLoc mDefault cs ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > 0) $
936.30 s
[opt-env-conf-test] showString "Commands "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:19-27
936.30 s
[opt-env-conf-test] @@ -342,7 +342,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen True $
936.30 s
[opt-env-conf-test] showString "Check "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:20-26
936.30 s
[opt-env-conf-test] @@ -342,7 +342,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (True) $
936.30 s
[opt-env-conf-test] showString "Check "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
936.30 s
[opt-env-conf-test] @@ -342,7 +342,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > -10) $
936.30 s
[opt-env-conf-test] showString "Check "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
936.30 s
[opt-env-conf-test] @@ -342,7 +342,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > 1) $
936.30 s
[opt-env-conf-test] showString "Check "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
936.30 s
[opt-env-conf-test] @@ -342,7 +342,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (d > 0) $
936.30 s
[opt-env-conf-test] showString "Check "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
936.30 s
[opt-env-conf-test] @@ -330,7 +330,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserSome mLoc p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen True $
936.30 s
[opt-env-conf-test] showString "Some "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
936.30 s
[opt-env-conf-test] @@ -330,7 +330,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test] . go 11 p
936.30 s
[opt-env-conf-test] ParserSome mLoc p ->
936.30 s
[opt-env-conf-test] - showParen (d > 10) $
936.30 s
[opt-env-conf-test] + showParen (True) $
936.30 s
[opt-env-conf-test] showString "Some "
936.30 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.30 s
[opt-env-conf-test] . showString " "
936.30 s
[opt-env-conf-test]
936.30 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
936.30 s
[opt-env-conf-test] @@ -330,7 +330,7 @@
936.30 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p
936.31 s
[opt-env-conf-test] ParserSome mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > -10) $
936.31 s
[opt-env-conf-test] showString "Some "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
936.31 s
[opt-env-conf-test] @@ -330,7 +330,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p
936.31 s
[opt-env-conf-test] ParserSome mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 1) $
936.31 s
[opt-env-conf-test] showString "Some "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
936.31 s
[opt-env-conf-test] @@ -330,7 +330,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p
936.31 s
[opt-env-conf-test] ParserSome mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 0) $
936.31 s
[opt-env-conf-test] showString "Some "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
936.31 s
[opt-env-conf-test] @@ -324,7 +324,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p2
936.31 s
[opt-env-conf-test] ParserMany mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen True $
936.31 s
[opt-env-conf-test] showString "Many "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
936.31 s
[opt-env-conf-test] @@ -324,7 +324,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p2
936.31 s
[opt-env-conf-test] ParserMany mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (True) $
936.31 s
[opt-env-conf-test] showString "Many "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
936.31 s
[opt-env-conf-test] @@ -324,7 +324,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p2
936.31 s
[opt-env-conf-test] ParserMany mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > -10) $
936.31 s
[opt-env-conf-test] showString "Many "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
936.31 s
[opt-env-conf-test] @@ -324,7 +324,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p2
936.31 s
[opt-env-conf-test] ParserMany mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 1) $
936.31 s
[opt-env-conf-test] showString "Many "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
936.31 s
[opt-env-conf-test] @@ -324,7 +324,7 @@
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test] . go 11 p2
936.31 s
[opt-env-conf-test] ParserMany mLoc p ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 0) $
936.31 s
[opt-env-conf-test] showString "Many "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
936.31 s
[opt-env-conf-test] @@ -318,7 +318,7 @@
936.31 s
[opt-env-conf-test] showString "Empty "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] ParserAlt p1 p2 ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen True $
936.31 s
[opt-env-conf-test] showString "Alt "
936.31 s
[opt-env-conf-test] . go 11 p1
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
936.31 s
[opt-env-conf-test] @@ -318,7 +318,7 @@
936.31 s
[opt-env-conf-test] showString "Empty "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] ParserAlt p1 p2 ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (True) $
936.31 s
[opt-env-conf-test] showString "Alt "
936.31 s
[opt-env-conf-test] . go 11 p1
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
936.31 s
[opt-env-conf-test] @@ -318,7 +318,7 @@
936.31 s
[opt-env-conf-test] showString "Empty "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] ParserAlt p1 p2 ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > -10) $
936.31 s
[opt-env-conf-test] showString "Alt "
936.31 s
[opt-env-conf-test] . go 11 p1
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
936.31 s
[opt-env-conf-test] @@ -318,7 +318,7 @@
936.31 s
[opt-env-conf-test] showString "Empty "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] ParserAlt p1 p2 ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 1) $
936.31 s
[opt-env-conf-test] showString "Alt "
936.31 s
[opt-env-conf-test] . go 11 p1
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
936.31 s
[opt-env-conf-test] @@ -318,7 +318,7 @@
936.31 s
[opt-env-conf-test] showString "Empty "
936.31 s
[opt-env-conf-test] . showsPrec 11 mLoc
936.31 s
[opt-env-conf-test] ParserAlt p1 p2 ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 0) $
936.31 s
[opt-env-conf-test] showString "Alt "
936.31 s
[opt-env-conf-test] . go 11 p1
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
936.31 s
[opt-env-conf-test] @@ -303,7 +303,7 @@
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen True $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test] . go 11 pf
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
936.31 s
[opt-env-conf-test] @@ -303,7 +303,7 @@
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (True) $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test] . go 11 pf
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
936.31 s
[opt-env-conf-test] @@ -303,7 +303,7 @@
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > -10) $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test] . go 11 pf
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
936.31 s
[opt-env-conf-test] @@ -303,7 +303,7 @@
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 1) $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test] . go 11 pf
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
936.31 s
[opt-env-conf-test] @@ -303,7 +303,7 @@
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] - showParen (d > 10) $
936.31 s
[opt-env-conf-test] + showParen (d > 0) $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test] . go 11 pf
936.31 s
[opt-env-conf-test] . showString " "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
936.31 s
[opt-env-conf-test] @@ -301,7 +301,7 @@
936.31 s
[opt-env-conf-test] where
936.31 s
[opt-env-conf-test] go :: Int -> Parser a -> ShowS
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] showParen (d > 10) $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
936.31 s
[opt-env-conf-test] @@ -301,7 +301,7 @@
936.31 s
[opt-env-conf-test] where
936.31 s
[opt-env-conf-test] go :: Int -> Parser a -> ShowS
936.31 s
[opt-env-conf-test] go d = \case
936.31 s
[opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.31 s
[opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
936.31 s
[opt-env-conf-test] ParserAp pf pa ->
936.31 s
[opt-env-conf-test] showParen (d > 10) $
936.31 s
[opt-env-conf-test] showString "Ap "
936.31 s
[opt-env-conf-test]
936.31 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
936.31 s
[opt-env-conf-test] @@ -301,7 +301,7 @@
936.31 s
[opt-env-conf-test] where
936.31 s
[opt-env-conf-test] go :: Int -> Parser a -> ShowS
936.31 s
[opt-env-conf-test] go d = \case
936.32 s
[opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.32 s
[opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
936.32 s
[opt-env-conf-test] ParserAp pf pa ->
936.32 s
[opt-env-conf-test] showParen (d > 10) $
936.32 s
[opt-env-conf-test] showString "Ap "
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
936.32 s
[opt-env-conf-test] @@ -301,7 +301,7 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go :: Int -> Parser a -> ShowS
936.32 s
[opt-env-conf-test] go d = \case
936.32 s
[opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.32 s
[opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
936.32 s
[opt-env-conf-test] ParserAp pf pa ->
936.32 s
[opt-env-conf-test] showParen (d > 10) $
936.32 s
[opt-env-conf-test] showString "Ap "
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
936.32 s
[opt-env-conf-test] @@ -301,7 +301,7 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go :: Int -> Parser a -> ShowS
936.32 s
[opt-env-conf-test] go d = \case
936.32 s
[opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
936.32 s
[opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
936.32 s
[opt-env-conf-test] ParserAp pf pa ->
936.32 s
[opt-env-conf-test] showParen (d > 10) $
936.32 s
[opt-env-conf-test] showString "Ap "
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.32 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go p =
936.32 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.32 s
[opt-env-conf-test] - in case p of
936.32 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] - ParserAp {} -> p'
936.32 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] - ParserMany {} -> p'
936.32 s
[opt-env-conf-test] - ParserSome {} -> p'
936.32 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] - Just _ -> p
936.32 s
[opt-env-conf-test] + in case p of
936.32 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] + ParserAp {} -> p'
936.32 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] + ParserMany {} -> p'
936.32 s
[opt-env-conf-test] + ParserSome {} -> p'
936.32 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] + Just _ -> p
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.32 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.32 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go p =
936.32 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.32 s
[opt-env-conf-test] - in case p of
936.32 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] - ParserAp {} -> p'
936.32 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] - ParserMany {} -> p'
936.32 s
[opt-env-conf-test] - ParserSome {} -> p'
936.32 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] - Just _ -> p
936.32 s
[opt-env-conf-test] + in case p of
936.32 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] + ParserAp {} -> p'
936.32 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] + ParserMany {} -> p'
936.32 s
[opt-env-conf-test] + ParserSome {} -> p'
936.32 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] + Just _ -> p
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.32 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.32 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go p =
936.32 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.32 s
[opt-env-conf-test] - in case p of
936.32 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] - ParserAp {} -> p'
936.32 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] - ParserMany {} -> p'
936.32 s
[opt-env-conf-test] - ParserSome {} -> p'
936.32 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] - Just _ -> p
936.32 s
[opt-env-conf-test] + in case p of
936.32 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] + ParserAp {} -> p'
936.32 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] + ParserMany {} -> p'
936.32 s
[opt-env-conf-test] + ParserSome {} -> p'
936.32 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] + Just _ -> p
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.32 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.32 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go p =
936.32 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.32 s
[opt-env-conf-test] - in case p of
936.32 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] - ParserAp {} -> p'
936.32 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] - ParserMany {} -> p'
936.32 s
[opt-env-conf-test] - ParserSome {} -> p'
936.32 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] - Just _ -> p
936.32 s
[opt-env-conf-test] + in case p of
936.32 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] + ParserAp {} -> p'
936.32 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] + ParserMany {} -> p'
936.32 s
[opt-env-conf-test] + ParserSome {} -> p'
936.32 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] + Just _ -> p
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.32 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.32 s
[opt-env-conf-test]
936.32 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.32 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.32 s
[opt-env-conf-test] where
936.32 s
[opt-env-conf-test] go p =
936.32 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.32 s
[opt-env-conf-test] - in case p of
936.32 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] - ParserAp {} -> p'
936.32 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] - ParserMany {} -> p'
936.32 s
[opt-env-conf-test] - ParserSome {} -> p'
936.32 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.32 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.32 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.32 s
[opt-env-conf-test] - Just _ -> p
936.32 s
[opt-env-conf-test] + in case p of
936.32 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.32 s
[opt-env-conf-test] + ParserAp {} -> p'
936.32 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.32 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.32 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.32 s
[opt-env-conf-test] + ParserMany {} -> p'
936.32 s
[opt-env-conf-test] + ParserSome {} -> p'
936.32 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.32 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.32 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.32 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] + Just _ -> p
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.33 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.33 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.33 s
[opt-env-conf-test] where
936.33 s
[opt-env-conf-test] go p =
936.33 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.33 s
[opt-env-conf-test] - in case p of
936.33 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] - ParserAp {} -> p'
936.33 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] - ParserMany {} -> p'
936.33 s
[opt-env-conf-test] - ParserSome {} -> p'
936.33 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] - Just _ -> p
936.33 s
[opt-env-conf-test] + in case p of
936.33 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] + ParserAp {} -> p'
936.33 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] + ParserMany {} -> p'
936.33 s
[opt-env-conf-test] + ParserSome {} -> p'
936.33 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] + Just _ -> p
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.33 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.33 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.33 s
[opt-env-conf-test] where
936.33 s
[opt-env-conf-test] go p =
936.33 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.33 s
[opt-env-conf-test] - in case p of
936.33 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] - ParserAp {} -> p'
936.33 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] - ParserMany {} -> p'
936.33 s
[opt-env-conf-test] - ParserSome {} -> p'
936.33 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] - Just _ -> p
936.33 s
[opt-env-conf-test] + in case p of
936.33 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] + ParserAp {} -> p'
936.33 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] + ParserMany {} -> p'
936.33 s
[opt-env-conf-test] + ParserSome {} -> p'
936.33 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] + Just _ -> p
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.33 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.33 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.33 s
[opt-env-conf-test] where
936.33 s
[opt-env-conf-test] go p =
936.33 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.33 s
[opt-env-conf-test] - in case p of
936.33 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] - ParserAp {} -> p'
936.33 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] - ParserMany {} -> p'
936.33 s
[opt-env-conf-test] - ParserSome {} -> p'
936.33 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] - Just _ -> p
936.33 s
[opt-env-conf-test] + in case p of
936.33 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] + ParserAp {} -> p'
936.33 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] + ParserMany {} -> p'
936.33 s
[opt-env-conf-test] + ParserSome {} -> p'
936.33 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] + Just _ -> p
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.33 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.33 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.33 s
[opt-env-conf-test] where
936.33 s
[opt-env-conf-test] go p =
936.33 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.33 s
[opt-env-conf-test] - in case p of
936.33 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] - ParserAp {} -> p'
936.33 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] - ParserMany {} -> p'
936.33 s
[opt-env-conf-test] - ParserSome {} -> p'
936.33 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] - Just _ -> p
936.33 s
[opt-env-conf-test] + in case p of
936.33 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] + ParserAp {} -> p'
936.33 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] + ParserMany {} -> p'
936.33 s
[opt-env-conf-test] + ParserSome {} -> p'
936.33 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] + Just _ -> p
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.33 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
936.33 s
[opt-env-conf-test] @@ -547,21 +547,21 @@
936.33 s
[opt-env-conf-test] where
936.33 s
[opt-env-conf-test] go p =
936.33 s
[opt-env-conf-test] let p' = p <|> pure defaultValue
936.33 s
[opt-env-conf-test] - in case p of
936.33 s
[opt-env-conf-test] - ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] - ParserAp {} -> p'
936.33 s
[opt-env-conf-test] - ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] - ParserMany {} -> p'
936.33 s
[opt-env-conf-test] - ParserSome {} -> p'
936.33 s
[opt-env-conf-test] - ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] - ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] - ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] - ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] - Just _ -> p
936.33 s
[opt-env-conf-test] + in case p of
936.33 s
[opt-env-conf-test] + ParserPure a -> ParserPure a
936.33 s
[opt-env-conf-test] + ParserAp {} -> p'
936.33 s
[opt-env-conf-test] + ParserSelect {} -> p'
936.33 s
[opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
936.33 s
[opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
936.33 s
[opt-env-conf-test] + ParserMany {} -> p'
936.33 s
[opt-env-conf-test] + ParserSome {} -> p'
936.33 s
[opt-env-conf-test] + ParserAllOrNothing {} -> p'
936.33 s
[opt-env-conf-test] + ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] + ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] + ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.33 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.33 s
[opt-env-conf-test] + Just _ -> p
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.33 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.33 s
[opt-env-conf-test]
936.33 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
936.33 s
[opt-env-conf-test] @@ -559,9 +559,9 @@
936.33 s
[opt-env-conf-test] ParserCheck {} -> p'
936.33 s
[opt-env-conf-test] ParserCommands {} -> p'
936.33 s
[opt-env-conf-test] ParserWithConfig {} -> p'
936.33 s
[opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
936.34 s
[opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.34 s
[opt-env-conf-test] - Just _ -> p
936.34 s
[opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
936.34 s
[opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
936.34 s
[opt-env-conf-test] + Just _ -> p
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] -- | Try a list of parsers in order
936.34 s
[opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
936.34 s
[opt-env-conf-test] @@ -599,9 +599,9 @@
936.34 s
[opt-env-conf-test] checkMapMaybe func p =
936.34 s
[opt-env-conf-test] withFrozenCallStack $
936.34 s
[opt-env-conf-test] checkMapEither
936.34 s
[opt-env-conf-test] - ( \a -> case func a of
936.34 s
[opt-env-conf-test] - Nothing -> Left "checkMapMaybe failed without a helpful error message"
936.34 s
[opt-env-conf-test] - Just b -> Right b
936.34 s
[opt-env-conf-test] + ( \a -> case func a of
936.34 s
[opt-env-conf-test] + Nothing -> Left "checkMapMaybe failed without a helpful error message"
936.34 s
[opt-env-conf-test] + Just b -> Right b
936.34 s
[opt-env-conf-test] )
936.34 s
[opt-env-conf-test] p
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:117:28-81
936.34 s
[opt-env-conf-test] @@ -114,7 +114,7 @@
936.34 s
[opt-env-conf-test] Just (Rel rf) -> do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, fs) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure
936.34 s
[opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:117:31-43
936.34 s
[opt-env-conf-test] @@ -114,7 +114,7 @@
936.34 s
[opt-env-conf-test] Just (Rel rf) -> do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, fs) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure
936.34 s
[opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
936.34 s
[opt-env-conf-test] @@ -114,7 +114,7 @@
936.34 s
[opt-env-conf-test] Just (Rel rf) -> do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, fs) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure
936.34 s
[opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
936.34 s
[opt-env-conf-test] @@ -114,7 +114,7 @@
936.34 s
[opt-env-conf-test] Just (Rel rf) -> do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, fs) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure
936.34 s
[opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
936.34 s
[opt-env-conf-test] @@ -168,24 +168,24 @@
936.34 s
[opt-env-conf-test] (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] - dirsFromPartialListing <- case parseSomeDir fp of
936.34 s
[opt-env-conf-test] - Nothing -> pure []
936.34 s
[opt-env-conf-test] - Just (Abs af) -> do
936.34 s
[opt-env-conf-test] - let dir = parent af
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirForgiving dir
936.34 s
[opt-env-conf-test] - pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test] - Just (Rel rf) ->
936.34 s
[opt-env-conf-test] - if fp == "."
936.34 s
[opt-env-conf-test] - then do
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirRel baseDir
936.34 s
[opt-env-conf-test] - pure (map fromRelDir ds)
936.34 s
[opt-env-conf-test] - else do
936.34 s
[opt-env-conf-test] - let dir = parent rf
936.34 s
[opt-env-conf-test] - let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] - pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test] + dirsFromPartialListing <- case parseSomeDir fp of
936.34 s
[opt-env-conf-test] + Nothing -> pure []
936.34 s
[opt-env-conf-test] + Just (Abs af) -> do
936.34 s
[opt-env-conf-test] + let dir = parent af
936.34 s
[opt-env-conf-test] + let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + (ds, _) <- listDirForgiving dir
936.34 s
[opt-env-conf-test] + pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test] + Just (Rel rf) ->
936.34 s
[opt-env-conf-test] + if fp == "."
936.34 s
[opt-env-conf-test] + then do
936.34 s
[opt-env-conf-test] + (ds, _) <- listDirRel baseDir
936.34 s
[opt-env-conf-test] + pure (map fromRelDir ds)
936.34 s
[opt-env-conf-test] + else do
936.34 s
[opt-env-conf-test] + let dir = parent rf
936.34 s
[opt-env-conf-test] + let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] + pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] pure $
936.34 s
[opt-env-conf-test] concat
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:186:32-85
936.34 s
[opt-env-conf-test] @@ -183,7 +183,7 @@
936.34 s
[opt-env-conf-test] else do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:186:35-47
936.34 s
[opt-env-conf-test] @@ -183,7 +183,7 @@
936.34 s
[opt-env-conf-test] else do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
936.34 s
[opt-env-conf-test] @@ -183,7 +183,7 @@
936.34 s
[opt-env-conf-test] else do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
936.34 s
[opt-env-conf-test] @@ -183,7 +183,7 @@
936.34 s
[opt-env-conf-test] else do
936.34 s
[opt-env-conf-test] let dir = parent rf
936.34 s
[opt-env-conf-test] let ad = baseDir </> dir
936.34 s
[opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
936.34 s
[opt-env-conf-test] (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:179:12-21
936.34 s
[opt-env-conf-test] @@ -176,7 +176,7 @@
936.34 s
[opt-env-conf-test] (ds, _) <- listDirForgiving dir
936.34 s
[opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
936.34 s
[opt-env-conf-test] Just (Rel rf) ->
936.34 s
[opt-env-conf-test] - if fp == "."
936.34 s
[opt-env-conf-test] + if False
936.34 s
[opt-env-conf-test] then do
936.34 s
[opt-env-conf-test] (ds, _) <- listDirRel baseDir
936.34 s
[opt-env-conf-test] pure (map fromRelDir ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
936.34 s
[opt-env-conf-test] @@ -154,19 +154,19 @@
936.34 s
[opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
936.34 s
[opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
936.34 s
[opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
936.34 s
[opt-env-conf-test] - dirsFromParentListing <- case parseSomeDir fp of
936.34 s
[opt-env-conf-test] - Nothing -> case fp of
936.34 s
[opt-env-conf-test] - [] -> do
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirRel baseDir
936.34 s
[opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test] - _ -> pure []
936.34 s
[opt-env-conf-test] - Just (Abs ad) -> do
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] - pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test] - Just (Rel rd) -> do
936.34 s
[opt-env-conf-test] - let ad = baseDir </> rd
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] - pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test] + dirsFromParentListing <- case parseSomeDir fp of
936.34 s
[opt-env-conf-test] + Nothing -> case fp of
936.34 s
[opt-env-conf-test] + [] -> do
936.34 s
[opt-env-conf-test] + (ds, _) <- listDirRel baseDir
936.34 s
[opt-env-conf-test] + pure (map fromRelDir $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test] + _ -> pure []
936.34 s
[opt-env-conf-test] + Just (Abs ad) -> do
936.34 s
[opt-env-conf-test] + (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] + pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test] + Just (Rel rd) -> do
936.34 s
[opt-env-conf-test] + let ad = baseDir </> rd
936.34 s
[opt-env-conf-test] + (ds, _) <- listDirForgiving ad
936.34 s
[opt-env-conf-test] + pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
936.34 s
[opt-env-conf-test] Nothing -> pure []
936.34 s
[opt-env-conf-test]
936.34 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
936.34 s
[opt-env-conf-test] @@ -155,11 +155,11 @@
936.34 s
[opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
936.34 s
[opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
936.34 s
[opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
936.34 s
[opt-env-conf-test] - Nothing -> case fp of
936.34 s
[opt-env-conf-test] - [] -> do
936.34 s
[opt-env-conf-test] - (ds, _) <- listDirRel baseDir
936.34 s
[opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
936.34 s
[opt-env-conf-test] - _ -> pure []
936.34 s
[opt-env-conf-test] + Nothing -> case fp of
936.35 s
[opt-env-conf-test] + [] -> do
936.35 s
[opt-env-conf-test] + (ds, _) <- listDirRel baseDir
936.35 s
[opt-env-conf-test] + pure (map fromRelDir $ filter (not . hiddenRel) ds)
936.35 s
[opt-env-conf-test] + _ -> pure []
936.35 s
[opt-env-conf-test] Just (Abs ad) -> do
936.35 s
[opt-env-conf-test] (ds, _) <- listDirForgiving ad
936.35 s
[opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
936.35 s
[opt-env-conf-test] @@ -450,7 +450,7 @@
936.35 s
[opt-env-conf-test] put as'
936.35 s
[opt-env-conf-test] pure $ Just []
936.35 s
[opt-env-conf-test] else do
936.35 s
[opt-env-conf-test] - if settingTryOption
936.35 s
[opt-env-conf-test] + if True
936.35 s
[opt-env-conf-test] then do
936.35 s
[opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
936.35 s
[opt-env-conf-test] case Args.consumeOption settingDasheds as of
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
936.35 s
[opt-env-conf-test] @@ -432,11 +432,11 @@
936.35 s
[opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
936.35 s
[opt-env-conf-test] -- fallback matched. In both cases, offer the
936.35 s
[opt-env-conf-test] -- completer if we are at the end.
936.35 s
[opt-env-conf-test] - case possibilities of
936.35 s
[opt-env-conf-test] - [] -> completeWithCompleterAtEnd
936.35 s
[opt-env-conf-test] - (_, as') : _ -> do
936.35 s
[opt-env-conf-test] - put as'
936.35 s
[opt-env-conf-test] - completeWithCompleterAtEnd
936.35 s
[opt-env-conf-test] + case possibilities of
936.35 s
[opt-env-conf-test] + [] -> completeWithCompleterAtEnd
936.35 s
[opt-env-conf-test] + (_, as') : _ -> do
936.35 s
[opt-env-conf-test] + put as'
936.35 s
[opt-env-conf-test] + completeWithCompleterAtEnd
936.35 s
[opt-env-conf-test] else
936.35 s
[opt-env-conf-test] if isJust settingSwitchValue
936.35 s
[opt-env-conf-test] then do
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
936.35 s
[opt-env-conf-test] @@ -367,11 +367,11 @@
936.35 s
[opt-env-conf-test] | not (null commandDocs)
936.35 s
[opt-env-conf-test] ],
936.35 s
[opt-env-conf-test] concat
936.35 s
[opt-env-conf-test] - [ [ headerChunks "Options",
936.35 s
[opt-env-conf-test] - renderLongOptDocs optDocs
936.35 s
[opt-env-conf-test] - ]
936.35 s
[opt-env-conf-test] - | not (nullDocs optDocs)
936.35 s
[opt-env-conf-test] - ],
936.35 s
[opt-env-conf-test] + [ [ headerChunks "Options",
936.35 s
[opt-env-conf-test] + renderLongOptDocs optDocs
936.35 s
[opt-env-conf-test] + ]
936.35 s
[opt-env-conf-test] + | not (nullDocs optDocs)
936.35 s
[opt-env-conf-test] + ],
936.35 s
[opt-env-conf-test] concat
936.35 s
[opt-env-conf-test] [ [ headerChunks "Environment Variables",
936.35 s
[opt-env-conf-test] renderEnvDocs envDocs
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
936.35 s
[opt-env-conf-test] @@ -370,7 +370,7 @@
936.35 s
[opt-env-conf-test] [ [ headerChunks "Options",
936.35 s
[opt-env-conf-test] renderLongOptDocs optDocs
936.35 s
[opt-env-conf-test] ]
936.35 s
[opt-env-conf-test] - | not (nullDocs optDocs)
936.35 s
[opt-env-conf-test] + | True
936.35 s
[opt-env-conf-test] ],
936.35 s
[opt-env-conf-test] concat
936.35 s
[opt-env-conf-test] [ [ headerChunks "Environment Variables",
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
936.35 s
[opt-env-conf-test] @@ -326,11 +326,11 @@
936.35 s
[opt-env-conf-test] | not (null commandDocs)
936.35 s
[opt-env-conf-test] ],
936.35 s
[opt-env-conf-test] concat
936.35 s
[opt-env-conf-test] - [ [ [".Sh ", "OPTIONS"],
936.35 s
[opt-env-conf-test] - renderLongOptDocs optDocs
936.35 s
[opt-env-conf-test] - ]
936.35 s
[opt-env-conf-test] - | not (nullDocs optDocs)
936.35 s
[opt-env-conf-test] - ],
936.35 s
[opt-env-conf-test] + [ [ [".Sh ", "OPTIONS"],
936.35 s
[opt-env-conf-test] + renderLongOptDocs optDocs
936.35 s
[opt-env-conf-test] + ]
936.35 s
[opt-env-conf-test] + | not (nullDocs optDocs)
936.35 s
[opt-env-conf-test] + ],
936.35 s
[opt-env-conf-test] concat
936.35 s
[opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
936.35 s
[opt-env-conf-test] renderEnvDocs envDocs
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
936.35 s
[opt-env-conf-test] @@ -329,7 +329,7 @@
936.35 s
[opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
936.35 s
[opt-env-conf-test] renderLongOptDocs optDocs
936.35 s
[opt-env-conf-test] ]
936.35 s
[opt-env-conf-test] - | not (nullDocs optDocs)
936.35 s
[opt-env-conf-test] + | True
936.35 s
[opt-env-conf-test] ],
936.35 s
[opt-env-conf-test] concat
936.35 s
[opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
936.35 s
[opt-env-conf-test] @@ -565,21 +565,21 @@
936.35 s
[opt-env-conf-test] [] -> []
936.35 s
[opt-env-conf-test] [d] -> go isTopLevel d
936.35 s
[opt-env-conf-test] (AnyDocsSingle d : ds) ->
936.35 s
[opt-env-conf-test] - case setDocHelp d of
936.35 s
[opt-env-conf-test] - Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
936.35 s
[opt-env-conf-test] - Just h ->
936.35 s
[opt-env-conf-test] - let (sds, rest) = goSameHelp h ds
936.35 s
[opt-env-conf-test] - in concat
936.35 s
[opt-env-conf-test] - [ concat
936.35 s
[opt-env-conf-test] - [ concat
936.35 s
[opt-env-conf-test] - [ indent $ renderSetDocHeader (Just h),
936.35 s
[opt-env-conf-test] - indent $ concatMap renderSetDocWithoutHeader $ d : sds,
936.35 s
[opt-env-conf-test] - [[]]
936.35 s
[opt-env-conf-test] - ]
936.35 s
[opt-env-conf-test] - | not isTopLevel
936.35 s
[opt-env-conf-test] - ],
936.35 s
[opt-env-conf-test] - goOr isTopLevel rest
936.35 s
[opt-env-conf-test] - ]
936.35 s
[opt-env-conf-test] + case setDocHelp d of
936.35 s
[opt-env-conf-test] + Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
936.35 s
[opt-env-conf-test] + Just h ->
936.35 s
[opt-env-conf-test] + let (sds, rest) = goSameHelp h ds
936.35 s
[opt-env-conf-test] + in concat
936.35 s
[opt-env-conf-test] + [ concat
936.35 s
[opt-env-conf-test] + [ concat
936.35 s
[opt-env-conf-test] + [ indent $ renderSetDocHeader (Just h),
936.35 s
[opt-env-conf-test] + indent $ concatMap renderSetDocWithoutHeader $ d : sds,
936.35 s
[opt-env-conf-test] + [[]]
936.35 s
[opt-env-conf-test] + ]
936.35 s
[opt-env-conf-test] + | not isTopLevel
936.35 s
[opt-env-conf-test] + ],
936.35 s
[opt-env-conf-test] + goOr isTopLevel rest
936.35 s
[opt-env-conf-test] + ]
936.35 s
[opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
936.35 s
[opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
936.35 s
[opt-env-conf-test] goSameHelp h = \case
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
936.35 s
[opt-env-conf-test] @@ -578,7 +578,7 @@
936.35 s
[opt-env-conf-test] ]
936.35 s
[opt-env-conf-test] | not isTopLevel
936.35 s
[opt-env-conf-test] ],
936.35 s
[opt-env-conf-test] - goOr isTopLevel rest
936.35 s
[opt-env-conf-test] + goOr True rest
936.35 s
[opt-env-conf-test] ]
936.35 s
[opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
936.35 s
[opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
936.35 s
[opt-env-conf-test] @@ -563,7 +563,7 @@
936.35 s
[opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
936.35 s
[opt-env-conf-test] goOr isTopLevel = \case
936.35 s
[opt-env-conf-test] [] -> []
936.35 s
[opt-env-conf-test] - [d] -> go isTopLevel d
936.35 s
[opt-env-conf-test] + [d] -> go not (isTopLevel) d
936.35 s
[opt-env-conf-test] (AnyDocsSingle d : ds) ->
936.35 s
[opt-env-conf-test] case setDocHelp d of
936.35 s
[opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
936.35 s
[opt-env-conf-test] @@ -563,7 +563,7 @@
936.35 s
[opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
936.35 s
[opt-env-conf-test] goOr isTopLevel = \case
936.35 s
[opt-env-conf-test] [] -> []
936.35 s
[opt-env-conf-test] - [d] -> go isTopLevel d
936.35 s
[opt-env-conf-test] + [d] -> go True d
936.35 s
[opt-env-conf-test] (AnyDocsSingle d : ds) ->
936.35 s
[opt-env-conf-test] case setDocHelp d of
936.35 s
[opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
936.35 s
[opt-env-conf-test] @@ -585,7 +585,7 @@
936.35 s
[opt-env-conf-test] goSameHelp h = \case
936.35 s
[opt-env-conf-test] [] -> ([], [])
936.35 s
[opt-env-conf-test] (AnyDocsSingle d : ds) ->
936.35 s
[opt-env-conf-test] - if setDocHelp d == Just h
936.35 s
[opt-env-conf-test] + if True
936.35 s
[opt-env-conf-test] then
936.35 s
[opt-env-conf-test] let (sds, rest) = goSameHelp h ds
936.35 s
[opt-env-conf-test] in (d : sds, rest)
936.35 s
[opt-env-conf-test]
936.35 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
936.35 s
[opt-env-conf-test] @@ -529,12 +529,12 @@
936.35 s
[opt-env-conf-test] [] -> []
936.35 s
[opt-env-conf-test] [d] -> [go' d]
936.35 s
[opt-env-conf-test] (AnyDocsSingle d : ds) ->
936.35 s
[opt-env-conf-test] - case setDocHelp d of
936.35 s
[opt-env-conf-test] - Nothing -> go' (AnyDocsSingle d) : goOr' ds
936.35 s
[opt-env-conf-test] - Just h ->
936.35 s
[opt-env-conf-test] - let (sds, rest) = goSameHelp h ds
936.35 s
[opt-env-conf-test] - ne = d :| sds
936.35 s
[opt-env-conf-test] - in AnyDocsSingle ne : goOr' rest
936.35 s
[opt-env-conf-test] + case setDocHelp d of
936.35 s
[opt-env-conf-test] + Nothing -> go' (AnyDocsSingle d) : goOr' ds
936.35 s
[opt-env-conf-test] + Just h ->
936.35 s
[opt-env-conf-test] + let (sds, rest) = goSameHelp h ds
936.35 s
[opt-env-conf-test] + ne = d :| sds
936.35 s
[opt-env-conf-test] + in AnyDocsSingle ne : goOr' rest
936.35 s
[opt-env-conf-test] (d : ds) -> go' d : goOr' ds
936.35 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
936.36 s
[opt-env-conf-test] @@ -256,18 +256,18 @@
936.36 s
[opt-env-conf-test] concat
936.36 s
[opt-env-conf-test] [ concatMap
936.36 s
[opt-env-conf-test] ( \(key, schema) ->
936.36 s
[opt-env-conf-test] - case jsonSchemaChunkLines schema of
936.36 s
[opt-env-conf-test] - [line] ->
936.36 s
[opt-env-conf-test] - [["config: ", confValChunk key, ": "] ++ line]
936.36 s
[opt-env-conf-test] - ls ->
936.36 s
[opt-env-conf-test] - ["config:"]
936.36 s
[opt-env-conf-test] - : indent
936.36 s
[opt-env-conf-test] - ( case ls of
936.36 s
[opt-env-conf-test] - [] -> [["TODO"]]
936.36 s
[opt-env-conf-test] - (l : ll) ->
936.36 s
[opt-env-conf-test] - ([confValChunk key, ": "] ++ l)
936.36 s
[opt-env-conf-test] - : indent ll
936.36 s
[opt-env-conf-test] - )
936.36 s
[opt-env-conf-test] + case jsonSchemaChunkLines schema of
936.36 s
[opt-env-conf-test] + [line] ->
936.36 s
[opt-env-conf-test] + [["config: ", confValChunk key, ": "] ++ line]
936.36 s
[opt-env-conf-test] + ls ->
936.36 s
[opt-env-conf-test] + ["config:"]
936.36 s
[opt-env-conf-test] + : indent
936.36 s
[opt-env-conf-test] + ( case ls of
936.36 s
[opt-env-conf-test] + [] -> [["TODO"]]
936.36 s
[opt-env-conf-test] + (l : ll) ->
936.36 s
[opt-env-conf-test] + ([confValChunk key, ": "] ++ l)
936.36 s
[opt-env-conf-test] + : indent ll
936.36 s
[opt-env-conf-test] + )
936.36 s
[opt-env-conf-test] )
936.36 s
[opt-env-conf-test] (NE.toList confs)
936.36 s
[opt-env-conf-test] | confs <- maybeToList setDocConfKeys
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
936.36 s
[opt-env-conf-test] @@ -262,11 +262,11 @@
936.36 s
[opt-env-conf-test] ls ->
936.36 s
[opt-env-conf-test] ["config:"]
936.36 s
[opt-env-conf-test] : indent
936.36 s
[opt-env-conf-test] - ( case ls of
936.36 s
[opt-env-conf-test] - [] -> [["TODO"]]
936.36 s
[opt-env-conf-test] - (l : ll) ->
936.36 s
[opt-env-conf-test] - ([confValChunk key, ": "] ++ l)
936.36 s
[opt-env-conf-test] - : indent ll
936.36 s
[opt-env-conf-test] + ( case ls of
936.36 s
[opt-env-conf-test] + [] -> [["TODO"]]
936.36 s
[opt-env-conf-test] + (l : ll) ->
936.36 s
[opt-env-conf-test] + ([confValChunk key, ": "] ++ l)
936.36 s
[opt-env-conf-test] + : indent ll
936.36 s
[opt-env-conf-test] )
936.36 s
[opt-env-conf-test] )
936.36 s
[opt-env-conf-test] (NE.toList confs)
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
936.36 s
[opt-env-conf-test] @@ -658,29 +658,29 @@
936.36 s
[opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] [] -> Nothing
936.36 s
[opt-env-conf-test] cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
936.36 s
[opt-env-conf-test] - AnyDocsSingle mOd -> case mOd of
936.36 s
[opt-env-conf-test] - Nothing -> Nothing
936.36 s
[opt-env-conf-test] - Just OptDoc {..} ->
936.36 s
[opt-env-conf-test] - Just
936.36 s
[opt-env-conf-test] - $ ( if isJust optDocDefault
936.36 s
[opt-env-conf-test] - then bracketise
936.36 s
[opt-env-conf-test] - else id
936.36 s
[opt-env-conf-test] - )
936.36 s
[opt-env-conf-test] - $ unwordsChunks
936.36 s
[opt-env-conf-test] - $ concat
936.36 s
[opt-env-conf-test] - [ [ [mMetavarChunk optDocMetavar]
936.36 s
[opt-env-conf-test] - | optDocTryArgument
936.36 s
[opt-env-conf-test] - ],
936.36 s
[opt-env-conf-test] - [ concat $ maybeToList $ dashedChunks optDocDasheds
936.36 s
[opt-env-conf-test] - | optDocTrySwitch
936.36 s
[opt-env-conf-test] - ],
936.36 s
[opt-env-conf-test] - [ concat
936.36 s
[opt-env-conf-test] - [ concat $ maybeToList $ dashedChunks optDocDasheds,
936.36 s
[opt-env-conf-test] - [" ", mMetavarChunk optDocMetavar]
936.36 s
[opt-env-conf-test] - ]
936.36 s
[opt-env-conf-test] - | optDocTryOption
936.36 s
[opt-env-conf-test] - ]
936.36 s
[opt-env-conf-test] - ]
936.36 s
[opt-env-conf-test] + AnyDocsSingle mOd -> case mOd of
936.36 s
[opt-env-conf-test] + Nothing -> Nothing
936.36 s
[opt-env-conf-test] + Just OptDoc {..} ->
936.36 s
[opt-env-conf-test] + Just
936.36 s
[opt-env-conf-test] + $ ( if isJust optDocDefault
936.36 s
[opt-env-conf-test] + then bracketise
936.36 s
[opt-env-conf-test] + else id
936.36 s
[opt-env-conf-test] + )
936.36 s
[opt-env-conf-test] + $ unwordsChunks
936.36 s
[opt-env-conf-test] + $ concat
936.36 s
[opt-env-conf-test] + [ [ [mMetavarChunk optDocMetavar]
936.36 s
[opt-env-conf-test] + | optDocTryArgument
936.36 s
[opt-env-conf-test] + ],
936.36 s
[opt-env-conf-test] + [ concat $ maybeToList $ dashedChunks optDocDasheds
936.36 s
[opt-env-conf-test] + | optDocTrySwitch
936.36 s
[opt-env-conf-test] + ],
936.36 s
[opt-env-conf-test] + [ concat
936.36 s
[opt-env-conf-test] + [ concat $ maybeToList $ dashedChunks optDocDasheds,
936.36 s
[opt-env-conf-test] + [" ", mMetavarChunk optDocMetavar]
936.36 s
[opt-env-conf-test] + ]
936.36 s
[opt-env-conf-test] + | optDocTryOption
936.36 s
[opt-env-conf-test] + ]
936.36 s
[opt-env-conf-test] + ]
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] orChunk :: Chunk
936.36 s
[opt-env-conf-test] orChunk = fore cyan "|"
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
936.36 s
[opt-env-conf-test] @@ -650,10 +650,10 @@
936.36 s
[opt-env-conf-test] Nothing -> Just ["COMMAND"]
936.36 s
[opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
936.36 s
[opt-env-conf-test] AnyDocsAnd ds ->
936.36 s
[opt-env-conf-test] - case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] - [] -> Nothing
936.36 s
[opt-env-conf-test] - [c] -> Just c
936.36 s
[opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
936.36 s
[opt-env-conf-test] + case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] + [] -> Nothing
936.36 s
[opt-env-conf-test] + [c] -> Just c
936.36 s
[opt-env-conf-test] + cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
936.36 s
[opt-env-conf-test] AnyDocsOr ds ->
936.36 s
[opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] [] -> Nothing
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
936.36 s
[opt-env-conf-test] @@ -650,10 +650,10 @@
936.36 s
[opt-env-conf-test] Nothing -> Just ["COMMAND"]
936.36 s
[opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
936.36 s
[opt-env-conf-test] AnyDocsAnd ds ->
936.36 s
[opt-env-conf-test] - case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] - [] -> Nothing
936.36 s
[opt-env-conf-test] - [c] -> Just c
936.36 s
[opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
936.36 s
[opt-env-conf-test] + case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] + [] -> Nothing
936.36 s
[opt-env-conf-test] + [c] -> Just c
936.36 s
[opt-env-conf-test] + cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
936.36 s
[opt-env-conf-test] AnyDocsOr ds ->
936.36 s
[opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] [] -> Nothing
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
936.36 s
[opt-env-conf-test] @@ -653,7 +653,7 @@
936.36 s
[opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] [] -> Nothing
936.36 s
[opt-env-conf-test] [c] -> Just c
936.36 s
[opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
936.36 s
[opt-env-conf-test] + cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
936.36 s
[opt-env-conf-test] AnyDocsOr ds ->
936.36 s
[opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
936.36 s
[opt-env-conf-test] [] -> Nothing
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
936.36 s
[opt-env-conf-test] @@ -634,7 +634,7 @@
936.36 s
[opt-env-conf-test] withoutNothings =
936.36 s
[opt-env-conf-test] filter
936.36 s
[opt-env-conf-test] ( \case
936.36 s
[opt-env-conf-test] - AnyDocsSingle Nothing -> False
936.36 s
[opt-env-conf-test] + AnyDocsSingle Nothing -> True
936.36 s
[opt-env-conf-test] AnyDocsAnd [] -> False
936.36 s
[opt-env-conf-test] AnyDocsOr [] -> False
936.36 s
[opt-env-conf-test] _ -> True
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
936.36 s
[opt-env-conf-test] @@ -819,11 +819,11 @@
936.36 s
[opt-env-conf-test] [exampleValuesChunks confDocExamples | not (null confDocExamples)],
936.36 s
[opt-env-conf-test] concatMap
936.36 s
[opt-env-conf-test] ( \(key, schema) ->
936.36 s
[opt-env-conf-test] - case jsonSchemaChunkLines schema of
936.36 s
[opt-env-conf-test] - [line] ->
936.36 s
[opt-env-conf-test] - [[confValChunk key, ": "] ++ line]
936.36 s
[opt-env-conf-test] - ls ->
936.36 s
[opt-env-conf-test] - [confValChunk key, ":"] : indent ls
936.36 s
[opt-env-conf-test] + case jsonSchemaChunkLines schema of
936.36 s
[opt-env-conf-test] + [line] ->
936.36 s
[opt-env-conf-test] + [[confValChunk key, ": "] ++ line]
936.36 s
[opt-env-conf-test] + ls ->
936.36 s
[opt-env-conf-test] + [confValChunk key, ":"] : indent ls
936.36 s
[opt-env-conf-test] )
936.36 s
[opt-env-conf-test] (NE.toList confDocKeys)
936.36 s
[opt-env-conf-test] ]
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] BoolLit at src/OptEnvConf/Error.hs:66:40-45
936.36 s
[opt-env-conf-test] @@ -63,7 +63,7 @@
936.36 s
[opt-env-conf-test] ParseErrorMissingConfVal _ -> True
936.36 s
[opt-env-conf-test] ParseErrorConfigRead _ _ -> False
936.36 s
[opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
936.36 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
936.36 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
936.36 s
[opt-env-conf-test] ParseErrorAllOrNothing _ -> False
936.36 s
[opt-env-conf-test] ParseErrorUnrecognised _ -> False
936.36 s
[opt-env-conf-test] ParseErrorMissingCapability _ -> False
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:34-47
936.36 s
[opt-env-conf-test] @@ -62,7 +62,7 @@
936.36 s
[opt-env-conf-test] ParseErrorEnvRead _ _ -> False
936.36 s
[opt-env-conf-test] ParseErrorMissingConfVal _ -> True
936.36 s
[opt-env-conf-test] ParseErrorConfigRead _ _ -> False
936.36 s
[opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
936.36 s
[opt-env-conf-test] + ParseErrorMissingCommand cs -> True
936.36 s
[opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
936.36 s
[opt-env-conf-test] ParseErrorAllOrNothing _ -> False
936.36 s
[opt-env-conf-test] ParseErrorUnrecognised _ -> False
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:40-47
936.36 s
[opt-env-conf-test] @@ -62,7 +62,7 @@
936.36 s
[opt-env-conf-test] ParseErrorEnvRead _ _ -> False
936.36 s
[opt-env-conf-test] ParseErrorMissingConfVal _ -> True
936.36 s
[opt-env-conf-test] ParseErrorConfigRead _ _ -> False
936.36 s
[opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
936.36 s
[opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
936.36 s
[opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
936.36 s
[opt-env-conf-test] ParseErrorAllOrNothing _ -> False
936.36 s
[opt-env-conf-test] ParseErrorUnrecognised _ -> False
936.36 s
[opt-env-conf-test]
936.36 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
936.36 s
[opt-env-conf-test] @@ -80,63 +80,63 @@
936.36 s
[opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
936.36 s
[opt-env-conf-test] renderError ParseError {..} =
936.36 s
[opt-env-conf-test] concat
936.36 s
[opt-env-conf-test] - [ case parseErrorMessage of
936.36 s
[opt-env-conf-test] - ParseErrorEmpty ->
936.36 s
[opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.36 s
[opt-env-conf-test] - ParseErrorEmptySetting ->
936.36 s
[opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
936.36 s
[opt-env-conf-test] - ParseErrorNoReaders ->
936.36 s
[opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
936.36 s
[opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
936.36 s
[opt-env-conf-test] - ]
936.36 s
[opt-env-conf-test] - ParseErrorCheckFailed _ err ->
936.36 s
[opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
936.36 s
[opt-env-conf-test] - ParseErrorMissingArgument o ->
936.36 s
[opt-env-conf-test] - [ "Missing argument: "
936.36 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
936.36 s
[opt-env-conf-test] - ]
936.36 s
[opt-env-conf-test] - ParseErrorArgumentRead md errs ->
936.36 s
[opt-env-conf-test] - ["Failed to read argument: "]
936.36 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.36 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.36 s
[opt-env-conf-test] - ParseErrorMissingOption o ->
936.36 s
[opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.36 s
[opt-env-conf-test] - ParseErrorMissingSwitch o ->
936.36 s
[opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.36 s
[opt-env-conf-test] - ParseErrorOptionRead md errs ->
936.36 s
[opt-env-conf-test] - ["Failed to read option: "]
936.36 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingEnvVar md ->
936.37 s
[opt-env-conf-test] - ["Missing env var: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] - ParseErrorEnvRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read env var: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingConfVal md ->
936.37 s
[opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] - ParseErrorConfigRead md s ->
936.37 s
[opt-env-conf-test] - ["Failed to parse configuration: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] - ++ [[chunk $ T.pack s]]
936.37 s
[opt-env-conf-test] - ParseErrorMissingCommand cs ->
936.37 s
[opt-env-conf-test] - ["Missing command, available commands:"]
936.37 s
[opt-env-conf-test] - : availableCommandsLines cs
936.37 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
936.37 s
[opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.37 s
[opt-env-conf-test] - [fore blue "available commands:"]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ++ availableCommandsLines cs
936.37 s
[opt-env-conf-test] - ParseErrorAllOrNothing locs ->
936.37 s
[opt-env-conf-test] - [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.37 s
[opt-env-conf-test] - ["The following settings have been parsed:"]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
936.37 s
[opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
936.37 s
[opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.37 s
[opt-env-conf-test] - ParseErrorMissingCapability cap ->
936.37 s
[opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.37 s
[opt-env-conf-test] + [ case parseErrorMessage of
936.37 s
[opt-env-conf-test] + ParseErrorEmpty ->
936.37 s
[opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.37 s
[opt-env-conf-test] + ParseErrorEmptySetting ->
936.37 s
[opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
936.37 s
[opt-env-conf-test] + ParseErrorNoReaders ->
936.37 s
[opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
936.37 s
[opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ParseErrorCheckFailed _ err ->
936.37 s
[opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
936.37 s
[opt-env-conf-test] + ParseErrorMissingArgument o ->
936.37 s
[opt-env-conf-test] + [ "Missing argument: "
936.37 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ParseErrorArgumentRead md errs ->
936.37 s
[opt-env-conf-test] + ["Failed to read argument: "]
936.37 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] + ParseErrorMissingOption o ->
936.37 s
[opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] + ParseErrorMissingSwitch o ->
936.37 s
[opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] + ParseErrorOptionRead md errs ->
936.37 s
[opt-env-conf-test] + ["Failed to read option: "]
936.37 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] + ParseErrorMissingEnvVar md ->
936.37 s
[opt-env-conf-test] + ["Missing env var: "]
936.37 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] + ParseErrorEnvRead md errs ->
936.37 s
[opt-env-conf-test] + ["Failed to read env var: "]
936.37 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] + ParseErrorMissingConfVal md ->
936.37 s
[opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] + ParseErrorConfigRead md s ->
936.37 s
[opt-env-conf-test] + ["Failed to parse configuration: "]
936.37 s
[opt-env-conf-test] + : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] + ++ [[chunk $ T.pack s]]
936.37 s
[opt-env-conf-test] + ParseErrorMissingCommand cs ->
936.37 s
[opt-env-conf-test] + ["Missing command, available commands:"]
936.37 s
[opt-env-conf-test] + : availableCommandsLines cs
936.37 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
936.37 s
[opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.37 s
[opt-env-conf-test] + [fore blue "available commands:"]
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ++ availableCommandsLines cs
936.37 s
[opt-env-conf-test] + ParseErrorAllOrNothing locs ->
936.37 s
[opt-env-conf-test] + [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.37 s
[opt-env-conf-test] + ["The following settings have been parsed:"]
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
936.37 s
[opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
936.37 s
[opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.37 s
[opt-env-conf-test] + ParseErrorMissingCapability cap ->
936.37 s
[opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.37 s
[opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
936.37 s
[opt-env-conf-test] ]
936.37 s
[opt-env-conf-test]
936.37 s
[opt-env-conf-test]
936.37 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
936.37 s
[opt-env-conf-test] @@ -80,63 +80,63 @@
936.37 s
[opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
936.37 s
[opt-env-conf-test] renderError ParseError {..} =
936.37 s
[opt-env-conf-test] concat
936.37 s
[opt-env-conf-test] - [ case parseErrorMessage of
936.37 s
[opt-env-conf-test] - ParseErrorEmpty ->
936.37 s
[opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.37 s
[opt-env-conf-test] - ParseErrorEmptySetting ->
936.37 s
[opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
936.37 s
[opt-env-conf-test] - ParseErrorNoReaders ->
936.37 s
[opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
936.37 s
[opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ParseErrorCheckFailed _ err ->
936.37 s
[opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
936.37 s
[opt-env-conf-test] - ParseErrorMissingArgument o ->
936.37 s
[opt-env-conf-test] - [ "Missing argument: "
936.37 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ParseErrorArgumentRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read argument: "]
936.37 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingOption o ->
936.37 s
[opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] - ParseErrorMissingSwitch o ->
936.37 s
[opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] - ParseErrorOptionRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read option: "]
936.37 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingEnvVar md ->
936.37 s
[opt-env-conf-test] - ["Missing env var: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] - ParseErrorEnvRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read env var: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingConfVal md ->
936.37 s
[opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] - ParseErrorConfigRead md s ->
936.37 s
[opt-env-conf-test] - ["Failed to parse configuration: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] - ++ [[chunk $ T.pack s]]
936.37 s
[opt-env-conf-test] - ParseErrorMissingCommand cs ->
936.37 s
[opt-env-conf-test] - ["Missing command, available commands:"]
936.37 s
[opt-env-conf-test] - : availableCommandsLines cs
936.37 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
936.37 s
[opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.37 s
[opt-env-conf-test] - [fore blue "available commands:"]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ++ availableCommandsLines cs
936.37 s
[opt-env-conf-test] - ParseErrorAllOrNothing locs ->
936.37 s
[opt-env-conf-test] - [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.37 s
[opt-env-conf-test] - ["The following settings have been parsed:"]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
936.37 s
[opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
936.37 s
[opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.37 s
[opt-env-conf-test] - ParseErrorMissingCapability cap ->
936.37 s
[opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.37 s
[opt-env-conf-test] + [ case parseErrorMessage of
936.37 s
[opt-env-conf-test] + ParseErrorEmpty ->
936.37 s
[opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.37 s
[opt-env-conf-test] + ParseErrorEmptySetting ->
936.37 s
[opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
936.37 s
[opt-env-conf-test] + ParseErrorNoReaders ->
936.37 s
[opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
936.37 s
[opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ParseErrorCheckFailed _ err ->
936.37 s
[opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
936.37 s
[opt-env-conf-test] + ParseErrorMissingArgument o ->
936.37 s
[opt-env-conf-test] + [ "Missing argument: "
936.37 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ParseErrorArgumentRead md errs ->
936.37 s
[opt-env-conf-test] + ["Failed to read argument: "]
936.37 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] + ParseErrorMissingOption o ->
936.37 s
[opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] + ParseErrorMissingSwitch o ->
936.37 s
[opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] + ParseErrorOptionRead md errs ->
936.37 s
[opt-env-conf-test] + ["Failed to read option: "]
936.37 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] + ParseErrorMissingEnvVar md ->
936.37 s
[opt-env-conf-test] + ["Missing env var: "]
936.37 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] + ParseErrorEnvRead md errs ->
936.37 s
[opt-env-conf-test] + ["Failed to read env var: "]
936.37 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] + ParseErrorMissingConfVal md ->
936.37 s
[opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] + ParseErrorConfigRead md s ->
936.37 s
[opt-env-conf-test] + ["Failed to parse configuration: "]
936.37 s
[opt-env-conf-test] + : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] + ++ [[chunk $ T.pack s]]
936.37 s
[opt-env-conf-test] + ParseErrorMissingCommand cs ->
936.37 s
[opt-env-conf-test] + ["Missing command, available commands:"]
936.37 s
[opt-env-conf-test] + : availableCommandsLines cs
936.37 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
936.37 s
[opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.37 s
[opt-env-conf-test] + [fore blue "available commands:"]
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ++ availableCommandsLines cs
936.37 s
[opt-env-conf-test] + ParseErrorAllOrNothing locs ->
936.37 s
[opt-env-conf-test] + [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.37 s
[opt-env-conf-test] + ["The following settings have been parsed:"]
936.37 s
[opt-env-conf-test] + ]
936.37 s
[opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
936.37 s
[opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
936.37 s
[opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.37 s
[opt-env-conf-test] + ParseErrorMissingCapability cap ->
936.37 s
[opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.37 s
[opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
936.37 s
[opt-env-conf-test] ]
936.37 s
[opt-env-conf-test]
936.37 s
[opt-env-conf-test]
936.37 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
936.37 s
[opt-env-conf-test] @@ -80,63 +80,63 @@
936.37 s
[opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
936.37 s
[opt-env-conf-test] renderError ParseError {..} =
936.37 s
[opt-env-conf-test] concat
936.37 s
[opt-env-conf-test] - [ case parseErrorMessage of
936.37 s
[opt-env-conf-test] - ParseErrorEmpty ->
936.37 s
[opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.37 s
[opt-env-conf-test] - ParseErrorEmptySetting ->
936.37 s
[opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
936.37 s
[opt-env-conf-test] - ParseErrorNoReaders ->
936.37 s
[opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
936.37 s
[opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ParseErrorCheckFailed _ err ->
936.37 s
[opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
936.37 s
[opt-env-conf-test] - ParseErrorMissingArgument o ->
936.37 s
[opt-env-conf-test] - [ "Missing argument: "
936.37 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ParseErrorArgumentRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read argument: "]
936.37 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingOption o ->
936.37 s
[opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] - ParseErrorMissingSwitch o ->
936.37 s
[opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.37 s
[opt-env-conf-test] - ParseErrorOptionRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read option: "]
936.37 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.37 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingEnvVar md ->
936.37 s
[opt-env-conf-test] - ["Missing env var: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] - ParseErrorEnvRead md errs ->
936.37 s
[opt-env-conf-test] - ["Failed to read env var: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.37 s
[opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.37 s
[opt-env-conf-test] - ParseErrorMissingConfVal md ->
936.37 s
[opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] - ParseErrorConfigRead md s ->
936.37 s
[opt-env-conf-test] - ["Failed to parse configuration: "]
936.37 s
[opt-env-conf-test] - : maybe [] renderConfDoc md
936.37 s
[opt-env-conf-test] - ++ [[chunk $ T.pack s]]
936.37 s
[opt-env-conf-test] - ParseErrorMissingCommand cs ->
936.37 s
[opt-env-conf-test] - ["Missing command, available commands:"]
936.37 s
[opt-env-conf-test] - : availableCommandsLines cs
936.37 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
936.37 s
[opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.37 s
[opt-env-conf-test] - [fore blue "available commands:"]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ++ availableCommandsLines cs
936.37 s
[opt-env-conf-test] - ParseErrorAllOrNothing locs ->
936.37 s
[opt-env-conf-test] - [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.37 s
[opt-env-conf-test] - ["The following settings have been parsed:"]
936.37 s
[opt-env-conf-test] - ]
936.37 s
[opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
936.37 s
[opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
936.37 s
[opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.37 s
[opt-env-conf-test] - ParseErrorMissingCapability cap ->
936.37 s
[opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.38 s
[opt-env-conf-test] + [ case parseErrorMessage of
936.38 s
[opt-env-conf-test] + ParseErrorEmpty ->
936.38 s
[opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.38 s
[opt-env-conf-test] + ParseErrorEmptySetting ->
936.38 s
[opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
936.38 s
[opt-env-conf-test] + ParseErrorNoReaders ->
936.38 s
[opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
936.38 s
[opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ParseErrorCheckFailed _ err ->
936.38 s
[opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
936.38 s
[opt-env-conf-test] + ParseErrorMissingArgument o ->
936.38 s
[opt-env-conf-test] + [ "Missing argument: "
936.38 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ParseErrorArgumentRead md errs ->
936.38 s
[opt-env-conf-test] + ["Failed to read argument: "]
936.38 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] + ParseErrorMissingOption o ->
936.38 s
[opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] + ParseErrorMissingSwitch o ->
936.38 s
[opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] + ParseErrorOptionRead md errs ->
936.38 s
[opt-env-conf-test] + ["Failed to read option: "]
936.38 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] + ParseErrorMissingEnvVar md ->
936.38 s
[opt-env-conf-test] + ["Missing env var: "]
936.38 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] + ParseErrorEnvRead md errs ->
936.38 s
[opt-env-conf-test] + ["Failed to read env var: "]
936.38 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] + ParseErrorMissingConfVal md ->
936.38 s
[opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] + ParseErrorConfigRead md s ->
936.38 s
[opt-env-conf-test] + ["Failed to parse configuration: "]
936.38 s
[opt-env-conf-test] + : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] + ++ [[chunk $ T.pack s]]
936.38 s
[opt-env-conf-test] + ParseErrorMissingCommand cs ->
936.38 s
[opt-env-conf-test] + ["Missing command, available commands:"]
936.38 s
[opt-env-conf-test] + : availableCommandsLines cs
936.38 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
936.38 s
[opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.38 s
[opt-env-conf-test] + [fore blue "available commands:"]
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ++ availableCommandsLines cs
936.38 s
[opt-env-conf-test] + ParseErrorAllOrNothing locs ->
936.38 s
[opt-env-conf-test] + [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.38 s
[opt-env-conf-test] + ["The foll else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
936.38 s
[opt-env-conf-test]
936.38 s
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:300:11-25
936.38 s
[opt-env-conf-test] @@ -297,9 +297,9 @@
936.38 s
[opt-env-conf-test] else Nothing
936.38 s
[opt-env-conf-test] else
936.38 s
[opt-env-conf-test] let (mRest, c) = unsnocNE cs
936.38 s
[opt-env-conf-test] - in if DashedShort c `elem` dasheds
936.38 s
[opt-env-conf-test] - then Just mRest
936.38 s
[opt-env-conf-test] - else Nothing
936.38 s
[opt-env-conf-test] + in if DashedShort c `elem` dasheds
936.38 s
[opt-env-conf-test] + then Just mRest
936.38 s
[opt-env-conf-test] + else Nothing
936.38 s
[opt-env-conf-test]
936.38 s
[opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
936.38 s
[opt-env-conf-test] unsnocNE = go []
936.38 s
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
936.38 s
[opt-env-conf-test] @@ -201,7 +201,7 @@
936.38 s
[opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
936.38 s
[opt-env-conf-test] ]
936.38 s
[opt-env-conf-test] _ ->
936.38 s
[opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
936.38 s
[opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
936.38 s
[opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
936.38 s
[opt-env-conf-test] (Just (renderArg a), consumed)
936.38 s
[opt-env-conf-test] ]
936.38 s
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
936.38 s
[opt-env-conf-test] @@ -201,7 +201,7 @@
936.38 s
[opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
936.38 s
[opt-env-conf-test] ]
936.38 s
[opt-env-conf-test] _ ->
936.38 s
[opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
936.38 s
[opt-env-conf-test] + consumeArgument (Args (befores ++ []) rest)
936.38 s
[opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
936.38 s
[opt-env-conf-test] (Just (renderArg a), consumed)
936.38 s
[opt-env-conf-test] ]
936.38 s
[opt-env-conf-test] owing settings have been parsed:"]
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
936.38 s
[opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
936.38 s
[opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.38 s
[opt-env-conf-test] + ParseErrorMissingCapability cap ->
936.38 s
[opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.38 s
[opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
936.38 s
[opt-env-conf-test] ]
936.38 s
[opt-env-conf-test]
936.38 s
[opt-env-conf-test]
936.38 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
936.38 s
[opt-env-conf-test] @@ -80,63 +80,63 @@
936.38 s
[opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
936.38 s
[opt-env-conf-test] renderError ParseError {..} =
936.38 s
[opt-env-conf-test] concat
936.38 s
[opt-env-conf-test] - [ case parseErrorMessage of
936.38 s
[opt-env-conf-test] - ParseErrorEmpty ->
936.38 s
[opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.38 s
[opt-env-conf-test] - ParseErrorEmptySetting ->
936.38 s
[opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
936.38 s
[opt-env-conf-test] - ParseErrorNoReaders ->
936.38 s
[opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
936.38 s
[opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ParseErrorCheckFailed _ err ->
936.38 s
[opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
936.38 s
[opt-env-conf-test] - ParseErrorMissingArgument o ->
936.38 s
[opt-env-conf-test] - [ "Missing argument: "
936.38 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ParseErrorArgumentRead md errs ->
936.38 s
[opt-env-conf-test] - ["Failed to read argument: "]
936.38 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] - ParseErrorMissingOption o ->
936.38 s
[opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] - ParseErrorMissingSwitch o ->
936.38 s
[opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] - ParseErrorOptionRead md errs ->
936.38 s
[opt-env-conf-test] - ["Failed to read option: "]
936.38 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] - ParseErrorMissingEnvVar md ->
936.38 s
[opt-env-conf-test] - ["Missing env var: "]
936.38 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] - ParseErrorEnvRead md errs ->
936.38 s
[opt-env-conf-test] - ["Failed to read env var: "]
936.38 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] - ParseErrorMissingConfVal md ->
936.38 s
[opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] - ParseErrorConfigRead md s ->
936.38 s
[opt-env-conf-test] - ["Failed to parse configuration: "]
936.38 s
[opt-env-conf-test] - : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] - ++ [[chunk $ T.pack s]]
936.38 s
[opt-env-conf-test] - ParseErrorMissingCommand cs ->
936.38 s
[opt-env-conf-test] - ["Missing command, available commands:"]
936.38 s
[opt-env-conf-test] - : availableCommandsLines cs
936.38 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
936.38 s
[opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.38 s
[opt-env-conf-test] - [fore blue "available commands:"]
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ++ availableCommandsLines cs
936.38 s
[opt-env-conf-test] - ParseErrorAllOrNothing locs ->
936.38 s
[opt-env-conf-test] - [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.38 s
[opt-env-conf-test] - ["The following settings have been parsed:"]
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
936.38 s
[opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
936.38 s
[opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.38 s
[opt-env-conf-test] - ParseErrorMissingCapability cap ->
936.38 s
[opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.38 s
[opt-env-conf-test] + [ case parseErrorMessage of
936.38 s
[opt-env-conf-test] + ParseErrorEmpty ->
936.38 s
[opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.38 s
[opt-env-conf-test] + ParseErrorEmptySetting ->
936.38 s
[opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
936.38 s
[opt-env-conf-test] + ParseErrorNoReaders ->
936.38 s
[opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
936.38 s
[opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ParseErrorCheckFailed _ err ->
936.38 s
[opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
936.38 s
[opt-env-conf-test] + ParseErrorMissingArgument o ->
936.38 s
[opt-env-conf-test] + [ "Missing argument: "
936.38 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ParseErrorArgumentRead md errs ->
936.38 s
[opt-env-conf-test] + ["Failed to read argument: "]
936.38 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] + ParseErrorMissingOption o ->
936.38 s
[opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] + ParseErrorMissingSwitch o ->
936.38 s
[opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] + ParseErrorOptionRead md errs ->
936.38 s
[opt-env-conf-test] + ["Failed to read option: "]
936.38 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] + ParseErrorMissingEnvVar md ->
936.38 s
[opt-env-conf-test] + ["Missing env var: "]
936.38 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] + ParseErrorEnvRead md errs ->
936.38 s
[opt-env-conf-test] + ["Failed to read env var: "]
936.38 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] + ParseErrorMissingConfVal md ->
936.38 s
[opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] + ParseErrorConfigRead md s ->
936.38 s
[opt-env-conf-test] + ["Failed to parse configuration: "]
936.38 s
[opt-env-conf-test] + : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] + ++ [[chunk $ T.pack s]]
936.38 s
[opt-env-conf-test] + ParseErrorMissingCommand cs ->
936.38 s
[opt-env-conf-test] + ["Missing command, available commands:"]
936.38 s
[opt-env-conf-test] + : availableCommandsLines cs
936.38 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
936.38 s
[opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.38 s
[opt-env-conf-test] + [fore blue "available commands:"]
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ++ availableCommandsLines cs
936.38 s
[opt-env-conf-test] + ParseErrorAllOrNothing locs ->
936.38 s
[opt-env-conf-test] + [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.38 s
[opt-env-conf-test] + ["The following settings have been parsed:"]
936.38 s
[opt-env-conf-test] + ]
936.38 s
[opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
936.38 s
[opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
936.38 s
[opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.38 s
[opt-env-conf-test] + ParseErrorMissingCapability cap ->
936.38 s
[opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.38 s
[opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
936.38 s
[opt-env-conf-test] ]
936.38 s
[opt-env-conf-test]
936.38 s
[opt-env-conf-test]
936.38 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
936.38 s
[opt-env-conf-test] @@ -80,63 +80,63 @@
936.38 s
[opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
936.38 s
[opt-env-conf-test] renderError ParseError {..} =
936.38 s
[opt-env-conf-test] concat
936.38 s
[opt-env-conf-test] - [ case parseErrorMessage of
936.38 s
[opt-env-conf-test] - ParseErrorEmpty ->
936.38 s
[opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.38 s
[opt-env-conf-test] - ParseErrorEmptySetting ->
936.38 s
[opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
936.38 s
[opt-env-conf-test] - ParseErrorNoReaders ->
936.38 s
[opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
936.38 s
[opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ParseErrorCheckFailed _ err ->
936.38 s
[opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
936.38 s
[opt-env-conf-test] - ParseErrorMissingArgument o ->
936.38 s
[opt-env-conf-test] - [ "Missing argument: "
936.38 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ParseErrorArgumentRead md errs ->
936.38 s
[opt-env-conf-test] - ["Failed to read argument: "]
936.38 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] - ParseErrorMissingOption o ->
936.38 s
[opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] - ParseErrorMissingSwitch o ->
936.38 s
[opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.38 s
[opt-env-conf-test] - ParseErrorOptionRead md errs ->
936.38 s
[opt-env-conf-test] - ["Failed to read option: "]
936.38 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.38 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] - ParseErrorMissingEnvVar md ->
936.38 s
[opt-env-conf-test] - ["Missing env var: "]
936.38 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] - ParseErrorEnvRead md errs ->
936.38 s
[opt-env-conf-test] - ["Failed to read env var: "]
936.38 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.38 s
[opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.38 s
[opt-env-conf-test] - ParseErrorMissingConfVal md ->
936.38 s
[opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] - ParseErrorConfigRead md s ->
936.38 s
[opt-env-conf-test] - ["Failed to parse configuration: "]
936.38 s
[opt-env-conf-test] - : maybe [] renderConfDoc md
936.38 s
[opt-env-conf-test] - ++ [[chunk $ T.pack s]]
936.38 s
[opt-env-conf-test] - ParseErrorMissingCommand cs ->
936.38 s
[opt-env-conf-test] - ["Missing command, available commands:"]
936.38 s
[opt-env-conf-test] - : availableCommandsLines cs
936.38 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
936.38 s
[opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.38 s
[opt-env-conf-test] - [fore blue "available commands:"]
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ++ availableCommandsLines cs
936.38 s
[opt-env-conf-test] - ParseErrorAllOrNothing locs ->
936.38 s
[opt-env-conf-test] - [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.38 s
[opt-env-conf-test] - ["The following settings have been parsed:"]
936.38 s
[opt-env-conf-test] - ]
936.38 s
[opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
936.38 s
[opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
936.38 s
[opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.39 s
[opt-env-conf-test] - ParseErrorMissingCapability cap ->
936.39 s
[opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.39 s
[opt-env-conf-test] + [ case parseErrorMessage of
936.39 s
[opt-env-conf-test] + ParseErrorEmpty ->
936.39 s
[opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.39 s
[opt-env-conf-test] + ParseErrorEmptySetting ->
936.39 s
[opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
936.39 s
[opt-env-conf-test] + ParseErrorNoReaders ->
936.39 s
[opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
936.39 s
[opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ParseErrorCheckFailed _ err ->
936.39 s
[opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
936.39 s
[opt-env-conf-test] + ParseErrorMissingArgument o ->
936.39 s
[opt-env-conf-test] + [ "Missing argument: "
936.39 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ParseErrorArgumentRead md errs ->
936.39 s
[opt-env-conf-test] + ["Failed to read argument: "]
936.39 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.39 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] + ParseErrorMissingOption o ->
936.39 s
[opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.39 s
[opt-env-conf-test] + ParseErrorMissingSwitch o ->
936.39 s
[opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.39 s
[opt-env-conf-test] + ParseErrorOptionRead md errs ->
936.39 s
[opt-env-conf-test] + ["Failed to read option: "]
936.39 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.39 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] + ParseErrorMissingEnvVar md ->
936.39 s
[opt-env-conf-test] + ["Missing env var: "]
936.39 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.39 s
[opt-env-conf-test] + ParseErrorEnvRead md errs ->
936.39 s
[opt-env-conf-test] + ["Failed to read env var: "]
936.39 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.39 s
[opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] + ParseErrorMissingConfVal md ->
936.39 s
[opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
936.39 s
[opt-env-conf-test] + ParseErrorConfigRead md s ->
936.39 s
[opt-env-conf-test] + ["Failed to parse configuration: "]
936.39 s
[opt-env-conf-test] + : maybe [] renderConfDoc md
936.39 s
[opt-env-conf-test] + ++ [[chunk $ T.pack s]]
936.39 s
[opt-env-conf-test] + ParseErrorMissingCommand cs ->
936.39 s
[opt-env-conf-test] + ["Missing command, available commands:"]
936.39 s
[opt-env-conf-test] + : availableCommandsLines cs
936.39 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
936.39 s
[opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.39 s
[opt-env-conf-test] + [fore blue "available commands:"]
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ++ availableCommandsLines cs
936.39 s
[opt-env-conf-test] + ParseErrorAllOrNothing locs ->
936.39 s
[opt-env-conf-test] + [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.39 s
[opt-env-conf-test] + ["The following settings have been parsed:"]
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
936.39 s
[opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
936.39 s
[opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.39 s
[opt-env-conf-test] + ParseErrorMissingCapability cap ->
936.39 s
[opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.39 s
[opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
936.39 s
[opt-env-conf-test] ]
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
936.39 s
[opt-env-conf-test] @@ -80,63 +80,63 @@
936.39 s
[opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
936.39 s
[opt-env-conf-test] renderError ParseError {..} =
936.39 s
[opt-env-conf-test] concat
936.39 s
[opt-env-conf-test] - [ case parseErrorMessage of
936.39 s
[opt-env-conf-test] - ParseErrorEmpty ->
936.39 s
[opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.39 s
[opt-env-conf-test] - ParseErrorEmptySetting ->
936.39 s
[opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
936.39 s
[opt-env-conf-test] - ParseErrorNoReaders ->
936.39 s
[opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
936.39 s
[opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
936.39 s
[opt-env-conf-test] - ]
936.39 s
[opt-env-conf-test] - ParseErrorCheckFailed _ err ->
936.39 s
[opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
936.39 s
[opt-env-conf-test] - ParseErrorMissingArgument o ->
936.39 s
[opt-env-conf-test] - [ "Missing argument: "
936.39 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
936.39 s
[opt-env-conf-test] - ]
936.39 s
[opt-env-conf-test] - ParseErrorArgumentRead md errs ->
936.39 s
[opt-env-conf-test] - ["Failed to read argument: "]
936.39 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.39 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] - ParseErrorMissingOption o ->
936.39 s
[opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.39 s
[opt-env-conf-test] - ParseErrorMissingSwitch o ->
936.39 s
[opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.39 s
[opt-env-conf-test] - ParseErrorOptionRead md errs ->
936.39 s
[opt-env-conf-test] - ["Failed to read option: "]
936.39 s
[opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
936.39 s
[opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] - ParseErrorMissingEnvVar md ->
936.39 s
[opt-env-conf-test] - ["Missing env var: "]
936.39 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.39 s
[opt-env-conf-test] - ParseErrorEnvRead md errs ->
936.39 s
[opt-env-conf-test] - ["Failed to read env var: "]
936.39 s
[opt-env-conf-test] - : maybe [] renderEnvDoc md
936.39 s
[opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] - ParseErrorMissingConfVal md ->
936.39 s
[opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
936.39 s
[opt-env-conf-test] - ParseErrorConfigRead md s ->
936.39 s
[opt-env-conf-test] - ["Failed to parse configuration: "]
936.39 s
[opt-env-conf-test] - : maybe [] renderConfDoc md
936.39 s
[opt-env-conf-test] - ++ [[chunk $ T.pack s]]
936.39 s
[opt-env-conf-test] - ParseErrorMissingCommand cs ->
936.39 s
[opt-env-conf-test] - ["Missing command, available commands:"]
936.39 s
[opt-env-conf-test] - : availableCommandsLines cs
936.39 s
[opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
936.39 s
[opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.39 s
[opt-env-conf-test] - [fore blue "available commands:"]
936.39 s
[opt-env-conf-test] - ]
936.39 s
[opt-env-conf-test] - ++ availableCommandsLines cs
936.39 s
[opt-env-conf-test] - ParseErrorAllOrNothing locs ->
936.39 s
[opt-env-conf-test] - [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.39 s
[opt-env-conf-test] - ["The following settings have been parsed:"]
936.39 s
[opt-env-conf-test] - ]
936.39 s
[opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
936.39 s
[opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
936.39 s
[opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.39 s
[opt-env-conf-test] - ParseErrorMissingCapability cap ->
936.39 s
[opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.39 s
[opt-env-conf-test] + [ case parseErrorMessage of
936.39 s
[opt-env-conf-test] + ParseErrorEmpty ->
936.39 s
[opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
936.39 s
[opt-env-conf-test] + ParseErrorEmptySetting ->
936.39 s
[opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
936.39 s
[opt-env-conf-test] + ParseErrorNoReaders ->
936.39 s
[opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
936.39 s
[opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ParseErrorCheckFailed _ err ->
936.39 s
[opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
936.39 s
[opt-env-conf-test] + ParseErrorMissingArgument o ->
936.39 s
[opt-env-conf-test] + [ "Missing argument: "
936.39 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ParseErrorArgumentRead md errs ->
936.39 s
[opt-env-conf-test] + ["Failed to read argument: "]
936.39 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.39 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] + ParseErrorMissingOption o ->
936.39 s
[opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.39 s
[opt-env-conf-test] + ParseErrorMissingSwitch o ->
936.39 s
[opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
936.39 s
[opt-env-conf-test] + ParseErrorOptionRead md errs ->
936.39 s
[opt-env-conf-test] + ["Failed to read option: "]
936.39 s
[opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
936.39 s
[opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] + ParseErrorMissingEnvVar md ->
936.39 s
[opt-env-conf-test] + ["Missing env var: "]
936.39 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.39 s
[opt-env-conf-test] + ParseErrorEnvRead md errs ->
936.39 s
[opt-env-conf-test] + ["Failed to read env var: "]
936.39 s
[opt-env-conf-test] + : maybe [] renderEnvDoc md
936.39 s
[opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
936.39 s
[opt-env-conf-test] + ParseErrorMissingConfVal md ->
936.39 s
[opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
936.39 s
[opt-env-conf-test] + ParseErrorConfigRead md s ->
936.39 s
[opt-env-conf-test] + ["Failed to parse configuration: "]
936.39 s
[opt-env-conf-test] + : maybe [] renderConfDoc md
936.39 s
[opt-env-conf-test] + ++ [[chunk $ T.pack s]]
936.39 s
[opt-env-conf-test] + ParseErrorMissingCommand cs ->
936.39 s
[opt-env-conf-test] + ["Missing command, available commands:"]
936.39 s
[opt-env-conf-test] + : availableCommandsLines cs
936.39 s
[opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
936.39 s
[opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
936.39 s
[opt-env-conf-test] + [fore blue "available commands:"]
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ++ availableCommandsLines cs
936.39 s
[opt-env-conf-test] + ParseErrorAllOrNothing locs ->
936.39 s
[opt-env-conf-test] + [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
936.39 s
[opt-env-conf-test] + ["The following settings have been parsed:"]
936.39 s
[opt-env-conf-test] + ]
936.39 s
[opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
936.39 s
[opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
936.39 s
[opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
936.39 s
[opt-env-conf-test] + ParseErrorMissingCapability cap ->
936.39 s
[opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
936.39 s
[opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
936.39 s
[opt-env-conf-test] ]
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
936.39 s
[opt-env-conf-test] @@ -64,10 +64,10 @@
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] parserLintTest :: Parser a -> IO ()
936.39 s
[opt-env-conf-test] parserLintTest parser =
936.39 s
[opt-env-conf-test] - case lintParser parser of
936.39 s
[opt-env-conf-test] - Nothing -> pure ()
936.39 s
[opt-env-conf-test] - Just errs ->
936.39 s
[opt-env-conf-test] - expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
936.39 s
[opt-env-conf-test] + case lintParser parser of
936.39 s
[opt-env-conf-test] + Nothing -> pure ()
936.39 s
[opt-env-conf-test] + Just errs ->
936.39 s
[opt-env-conf-test] + expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
936.39 s
[opt-env-conf-test] settingsParserArgsTest = parserArgsTest settingsParser
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
936.39 s
[opt-env-conf-test] @@ -146,14 +146,14 @@
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] generatedFileComment :: CallStack -> T.Text
936.39 s
[opt-env-conf-test] generatedFileComment cs =
936.39 s
[opt-env-conf-test] - let loc = case getCallStack cs of
936.39 s
[opt-env-conf-test] - (_, srcLoc) : _ ->
936.39 s
[opt-env-conf-test] - packageName (Stack.srcLocPackage srcLoc)
936.39 s
[opt-env-conf-test] - <> ":"
936.39 s
[opt-env-conf-test] - <> Stack.srcLocFile srcLoc
936.39 s
[opt-env-conf-test] - <> ":"
936.39 s
[opt-env-conf-test] - <> show (Stack.srcLocStartLine srcLoc)
936.39 s
[opt-env-conf-test] - [] -> "unknown"
936.39 s
[opt-env-conf-test] + let loc = case getCallStack cs of
936.39 s
[opt-env-conf-test] + (_, srcLoc) : _ ->
936.39 s
[opt-env-conf-test] + packageName (Stack.srcLocPackage srcLoc)
936.39 s
[opt-env-conf-test] + <> ":"
936.39 s
[opt-env-conf-test] + <> Stack.srcLocFile srcLoc
936.39 s
[opt-env-conf-test] + <> ":"
936.39 s
[opt-env-conf-test] + <> show (Stack.srcLocStartLine srcLoc)
936.39 s
[opt-env-conf-test] + [] -> "unknown"
936.39 s
[opt-env-conf-test] in T.pack $
936.39 s
[opt-env-conf-test] unlines $
936.39 s
[opt-env-conf-test] map
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.39 s
[opt-env-conf-test] where
936.39 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.39 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.39 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test] + isVersion v = not (null v) && True
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.39 s
[opt-env-conf-test] where
936.39 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.39 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.39 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && True
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.39 s
[opt-env-conf-test] where
936.39 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.39 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.39 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True) v
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.39 s
[opt-env-conf-test] where
936.39 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.39 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.39 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.39 s
[opt-env-conf-test] where
936.39 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.39 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.39 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.39 s
[opt-env-conf-test] where
936.39 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.39 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.39 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test] + isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
936.39 s
[opt-env-conf-test]
936.39 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
936.39 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.40 s
[opt-env-conf-test] where
936.40 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.40 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.40 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.40 s
[opt-env-conf-test] + isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
936.40 s
[opt-env-conf-test]
936.40 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
936.40 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.40 s
[opt-env-conf-test] where
936.40 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.40 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.40 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.40 s
[opt-env-conf-test] + isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
936.40 s
[opt-env-conf-test]
936.40 s
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
936.40 s
[opt-env-conf-test] @@ -177,4 +177,4 @@
936.40 s
[opt-env-conf-test] where
936.40 s
[opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
936.40 s
[opt-env-conf-test] go (c : rest) = c : go rest
936.40 s
[opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.40 s
[opt-env-conf-test] + isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
936.40 s
[opt-env-conf-test] checkPhase completed in 8 minutes 24 seconds
936.40 s
[opt-env-conf-test] Phase: haddockPhase
936.40 s
[opt-env-conf-test] Phase: installPhase
936.40 s
[opt-env-conf-test] Installing library in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
936.55 s
[opt-env-conf-test] Phase: fixupPhase
936.57 s
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
936.57 s
[opt-env-conf-test] shrinking /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT-ghc9.10.3.so
936.60 s
[opt-env-conf-test] checking for references to /build/ in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4...
936.61 s
[opt-env-conf-test] patching script interpreter paths in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
936.62 s
[opt-env-conf-test] stripping (with command strip and flags -S -p) in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib
936.66 s
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
936.66 s
[opt-env-conf-test] checking for references to /build/ in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest...
936.68 s
[opt-env-conf-test] patching script interpreter paths in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
936.68 s
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report
936.73 s
[opt-env-conf-test] checking for references to /build/ in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report...
936.79 s
[opt-env-conf-test] patching script interpreter paths in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report
936.89 s
Progress: 10 of 11 built