fix build errors

This commit is contained in:
Mitchell Rosen 2022-10-29 08:38:07 +05:30
parent ce2a4b0889
commit 0c1d9f45eb
3 changed files with 3 additions and 2 deletions

View File

@ -85,3 +85,4 @@ tests:
- easytest
- containers
- code-page
- unison-syntax

View File

@ -145,6 +145,7 @@ test-suite pretty-printer-tests
, easytest
, raw-strings-qq
, unison-pretty-printer
, unison-syntax
if flag(optimized)
ghc-options: -funbox-strict-fields -O2
default-language: Haskell2010

View File

@ -17,7 +17,6 @@ import Unison.Parsers (unsafeParseFile)
import Unison.Prelude
import qualified Unison.Reference as R
import Unison.Symbol (Symbol)
import qualified Unison.Syntax.Name as Name (unsafeFromVar)
import qualified Unison.Test.Common as Common
import qualified Unison.Type as Type
import Unison.UnisonFile (UnisonFile (..))
@ -26,7 +25,7 @@ import qualified Unison.Var as Var
test :: Test ()
test =
scope "datadeclaration" $
let hashes = fromRight (error "Expected Right") $ Hashing.hashDataDecls Name.unsafeFromVar . (snd <$>) . dataDeclarationsId $ file
let hashes = fromRight (error "Expected Right") $ Hashing.hashDataDecls . (snd <$>) . dataDeclarationsId $ file
hashMap = Map.fromList $ fmap (\(a, b, _) -> (a, b)) hashes
hashOf k = Map.lookup (Var.named k) hashMap
in tests