git.iko.soy/elk
on cb3a2fa help sign in
elk/src/Reporting/Crash.hs
20 lines 392 B history raw
1{-# OPTIONS_GHC -Wall #-}
2module Reporting.Crash where
4import qualified Reporting.Region as R
7data Details
8 = IncompleteMultiIf R.Region
9 | IncompletePatternMatch R.Region
10 deriving (Show)
13summary :: Details -> String
14summary details =
15 case details of
16 IncompleteMultiIf _ ->
17 "incomplete-multi-if"
19 IncompletePatternMatch _ ->
20 "incomplete-pattern-match"