{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DerivingStrategies #-}
module Main.Queries where

import Data.ByteString (ByteString)

import Development.Shake.Classes
import Development.Shake

import Frontend.Syntax.Var (ParsedVar)
import Frontend.Syntax (FeModule)

import GHC.Generics (Generic)

import Rename.Types (FqVar, RenamedMod)

newtype AhcParsedModule = AhcParsedModule { ahcpmFilePath :: String }
  deriving newtype (Eq, Show, Binary, Hashable, NFData)

type instance RuleResult AhcParsedModule = FeModule ParsedVar

newtype AhcRenamedModule = AhcRenamedModule { ahcrnFilePath :: String }
  deriving newtype (Eq, Show, Binary, Hashable, NFData)

type instance RuleResult AhcRenamedModule = RenamedMod

data AhcModuleFilepath =
  AhcModuleFilepath
    { ahcfpImportingModule :: String
    , ahcfpModName         :: ParsedVar
    }
  deriving (Eq, Show, Generic, Binary, Hashable, NFData)

type instance RuleResult AhcModuleFilepath = String

newtype AhcModuleHash = AhcModuleHash { ahcmhFilePath :: String }
  deriving newtype (Eq, Show, Binary, Hashable, NFData)

type instance RuleResult AhcModuleHash = ByteString