github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

appease hlint

Browse Source
This commit is contained in:
joshvera 2018-04-19 13:52:50 -04:00
parent c8784ffab9
commit 19a7e0e4bd
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Analysis/Abstract/BadAddresses.hs
View File

@ -2,7 +2,6 @@
module Analysis.Abstract.BadAddresses where module Analysis.Abstract.BadAddresses where
import Control.Abstract.Analysis import Control.Abstract.Analysis
import Data.Abstract.Evaluatable
import Analysis.Abstract.Evaluating import Analysis.Abstract.Evaluating
import Prologue import Prologue
@ -29,6 +28,6 @@ instance ( Effectful m
\yield error -> do \yield error -> do
traceM ("AddressError:" <> show error) traceM ("AddressError:" <> show error)
case error of case error of
(UninitializedAddress address) -> hole >>= yield) (UninitializedAddress _) -> hole >>= yield)
analyzeModule = liftAnalyze analyzeModule analyzeModule = liftAnalyze analyzeModule