-
-
Notifications
You must be signed in to change notification settings - Fork 4
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[#28] Inspection tests for Prisms #48
Conversation
Resolves #28
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
There is no place for me here... I will choose the truth I like.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Great! Can't believe we've managed to fix this! 😍
test/Test/Data.hs
Outdated
@@ -79,7 +80,7 @@ data Grade | |||
deriving stock (Show, Eq) | |||
|
|||
_Mark :: Prism' Grade Int | |||
_Mark = prism' Mark $ \case | |||
_Mark = inline prism' Mark $ \case |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
I wonder if removing this inline
will still allow tests to pass 🤔
@@ -77,7 +77,7 @@ matchMarkManual grade = case grade of | |||
prismSpecs :: Spec | |||
prismSpecs = describe "Prism" $ do | |||
describe "preview" $ do | |||
xit "preview _Ctor x ≡ case (Ctor _) of" $ | |||
it "preview _Ctor x ≡ case (Ctor _) of" $ |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Very nice change! All for just removing a single letter 😅
Resolves #28