commit 7938767108f3c2225e7f35470c53f08b12c44a6e
parent 3e7e4bdeddf7cd194686a863a55c99d6ed634ad8
Author: Jared Tobin <jared@jtobin.io>
Date: Sun, 2 Nov 2025 17:40:02 +0400
lib: remove profile for the time being
Diffstat:
2 files changed, 0 insertions(+), 49 deletions(-)
diff --git a/ppad-fixed.cabal b/ppad-fixed.cabal
@@ -86,17 +86,3 @@ benchmark fixed-weigh
, primitive
, weigh
-executable fixed-profile
- default-language: Haskell2010
- hs-source-dirs: src
- main-is: Main.hs
-
- ghc-options:
- -rtsopts -O2 -Wall
-
- build-depends:
- base
- , criterion
- , ppad-fixed
- , primitive
-
diff --git a/src/Main.hs b/src/Main.hs
@@ -1,35 +0,0 @@
-{-# LANGUAGE BangPatterns #-}
-
-module Main where
-
-import qualified Data.Primitive.PrimArray as PA
-import Data.Word.Extended
-
-main :: IO ()
-main = do
- pure ()
- -- let !u = PA.primArrayFromList [
- -- 5152276743337338587
- -- , 6823823105342984773
- -- , 12649096328525870222
- -- , 8811572179372364942
- -- ]
- -- !d = Word256
- -- 8849385646123010679
- -- 653197174784954101
- -- 1286679968202709238
- -- 3741537094902495500
-
- -- quo <- PA.newPrimArray 5
- -- let go !j _
- -- | j == 50000 = pure ()
- -- | otherwise = do
- -- PA.setPrimArray quo 0 5 0
- -- w <- quotrem quo u d
- -- go (succ j) w
-
- -- r <- go (0 :: Int) (PA.primArrayFromList [0, 0, 0, 0])
- -- q <- PA.unsafeFreezePrimArray quo
- -- print r
- -- print q
-