diff --git a/src/Utils.hs b/src/Utils.hs index 9eb8df6d..f6c224b2 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -238,7 +238,7 @@ parseUpdates = map (toTriple . T.words) . T.lines toTriple line = Left $ "Unable to parse update: " <> T.unwords line srcOrMain :: MonadIO m => (Text -> ExceptT Text m a) -> Text -> ExceptT Text m a -srcOrMain et attrPath = et (attrPath <> ".src") <|> et attrPath +srcOrMain et attrPath = et (attrPath <> ".src") <|> et (attrPath <> ".originalSrc") <|> et attrPath nixCommonOptions :: [String] nixCommonOptions =